summaryrefslogtreecommitdiff
path: root/lisp/calendar/todo-mode.el
diff options
context:
space:
mode:
authorMiles Bader <miles@gnu.org>2008-01-09 01:21:15 +0000
committerMiles Bader <miles@gnu.org>2008-01-09 01:21:15 +0000
commit430d2ee2919b2d4693780f2474ba40148442d206 (patch)
treeea4b697cc7403cfffa9f4dcad08c61345a1d31b0 /lisp/calendar/todo-mode.el
parentbcab78b72bd640d41c7b4268e05e9f3f9e2c69c1 (diff)
parent59ce725a3b68cbc324f01bc8dc5f9e07286431d1 (diff)
downloademacs-430d2ee2919b2d4693780f2474ba40148442d206.tar.gz
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-312
Diffstat (limited to 'lisp/calendar/todo-mode.el')
-rw-r--r--lisp/calendar/todo-mode.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index e3db7e46407..1727ed09d82 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 <os10000@seidel-space.de>
@@ -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