diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-01-04 06:18:31 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-01-04 06:18:31 +0000 |
| commit | 3da360a745b3835504e7ac426dfec5f0908dcb3a (patch) | |
| tree | ffbf81ede7228692430a2deee93a2fb58f52c22d /lisp/progmodes/ada-mode.el | |
| parent | a5832373fdb7016415239fadf524dc45c953acc5 (diff) | |
| download | emacs-3da360a745b3835504e7ac426dfec5f0908dcb3a.tar.gz emacs-3da360a745b3835504e7ac426dfec5f0908dcb3a.tar.bz2 emacs-3da360a745b3835504e7ac426dfec5f0908dcb3a.zip | |
* 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-mode.el')
| -rw-r--r-- | lisp/progmodes/ada-mode.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index 5910ebf3f28..2c3acdda176 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -1,7 +1,7 @@ ;;; ada-mode.el --- major-mode for editing Ada sources ;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007 Free Software Foundation, Inc. +;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. ;; Author: Rolf Ebert <ebert@inf.enst.fr> ;; Markus Heritsch <Markus.Heritsch@studbox.uni-stuttgart.de> @@ -4811,10 +4811,9 @@ Moves to 'begin' if in a declarative part." ;; ------------------------------------------------------- (defadvice comment-region (before ada-uncomment-anywhere disable) - (if (and arg - (listp arg) ;; a prefix with \C-u is of the form '(4), whereas + (if (and (consp arg) ;; a prefix with \C-u is of the form '(4), whereas ;; \C-u 2 sets arg to '2' (fixed by S.Leake) - (string= mode-name "Ada")) + (derived-mode-p 'ada-mode)) (save-excursion (let ((cs (concat "^[ \t]*" (regexp-quote comment-start)))) (goto-char beg) |