diff options
| author | Stefan Monnier <[email protected]> | 2008-01-04 06:18:31 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2008-01-04 06:18:31 +0000 |
| commit | 3da360a745b3835504e7ac426dfec5f0908dcb3a (patch) | |
| tree | ffbf81ede7228692430a2deee93a2fb58f52c22d /lisp/progmodes/ada-xref.el | |
| parent | a5832373fdb7016415239fadf524dc45c953acc5 (diff) | |
* progmodes/ada-xref.el (ada-prj-find-prj-file):
* progmodes/ada-mode.el (comment-region):
* calendar/todo-mode.el (todo-insert-item):
* bookmark.el (bookmark-buffer-name): Test major-mode rather than mode-name.
Diffstat (limited to 'lisp/progmodes/ada-xref.el')
| -rw-r--r-- | lisp/progmodes/ada-xref.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el index 00be89553a..f9b5c026a4 100644 --- a/lisp/progmodes/ada-xref.el +++ b/lisp/progmodes/ada-xref.el @@ -1,7 +1,7 @@ ;; ada-xref.el --- for lookup and completion in Ada mode ;; Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, -;; 2004, 2005, 2006, 2007 Free Software Foundation, Inc. +;; 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. ;; Author: Markus Heritsch <[email protected]> ;; Rolf Ebert <[email protected]> @@ -648,8 +648,8 @@ is non-nil, prompt the user to select one. If none are found, return (let (selected) - (if (or (not (string= mode-name "Ada")) - (not (buffer-file-name))) + (if (not (and (derived-mode-p 'ada-mode) + buffer-file-name)) ;; Not in an Ada buffer, or current buffer not associated ;; with a file (for instance an emerge buffer) @@ -2310,5 +2310,5 @@ For instance, it creates the gnat-specific menus, sets some hooks for (provide 'ada-xref) -;;; arch-tag: 415a39fe-577b-4676-b3b1-6ff6db7ca24e +;; arch-tag: 415a39fe-577b-4676-b3b1-6ff6db7ca24e ;;; ada-xref.el ends here |