Mercurial > emacs
diff lisp/calendar/todo-mode.el @ 87566:0c4a74c24677
* 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.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 04 Jan 2008 06:18:31 +0000 |
| parents | 65af9ed993be |
| children | 606f2d163a64 3c802ca7a7fa |
line wrap: on
line diff
--- a/lisp/calendar/todo-mode.el Fri Jan 04 05:35:12 2008 +0000 +++ b/lisp/calendar/todo-mode.el Fri Jan 04 06:18:31 2008 +0000 @@ -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 <os10000@seidel-space.de> @@ -592,7 +592,7 @@ 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 @@ "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 @@ (provide 'todo-mode) -;;; arch-tag: 6fd91be5-776e-4464-a109-da4ea0e4e497 +;; arch-tag: 6fd91be5-776e-4464-a109-da4ea0e4e497 ;;; todo-mode.el ends here