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/calendar | |
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/calendar')
-rw-r--r-- | lisp/calendar/todo-mode.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index e3db7e4640..1727ed09d8 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -1,6 +1,6 @@ ;;; todo-mode.el --- major mode for editing TODO list files -;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, 2005, 2006, 2007 +;; Copyright (C) 1997, 1999, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 ;; Free Software Foundation, Inc. ;; Author: Oliver Seidel <[email protected]> @@ -592,7 +592,7 @@ With a prefix argument solicit the category, otherwise use the current category." (interactive "P") (save-excursion - (if (not (string-equal mode-name "TODO")) (todo-show)) + (if (not (derived-mode-p 'todo-mode)) (todo-show)) (let* ((new-item (concat todo-prefix " " (read-from-minibuffer "New TODO entry: " @@ -615,7 +615,7 @@ category." "Insert new TODO list entry under the cursor." (interactive "") (save-excursion - (if (not (string-equal mode-name "TODO")) (todo-show)) + (if (not (derived-mode-p 'todo-mode)) (todo-show)) (let* ((new-item (concat todo-prefix " " (read-from-minibuffer "New TODO entry: " @@ -959,5 +959,5 @@ Number of entries for each category is given by `todo-print-priorities'." (provide 'todo-mode) -;;; arch-tag: 6fd91be5-776e-4464-a109-da4ea0e4e497 +;; arch-tag: 6fd91be5-776e-4464-a109-da4ea0e4e497 ;;; todo-mode.el ends here |