From fffe59491fe63bae731ec613c4aa5ad8344459c9 Mon Sep 17 00:00:00 2001 From: Stephen Berman Date: Mon, 16 Feb 2009 01:38:42 +0100 Subject: [PATCH] * calendar/todos.el (todos-list-categories): Fix typos. (todos-show): Ensure file is in todos-mode. --- lisp/ChangeLog | 5 +++++ lisp/calendar/todos.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3e8e3d71c66..4739407547b 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-09-12 Stephen Berman + + * calendar/todos.el (todos-list-categories): Fix typos. + (todos-show): Ensure file is in todos-mode. + 2012-09-12 Stephen Berman * calendar/todos.el (todos-header): Remove defvar. diff --git a/lisp/calendar/todos.el b/lisp/calendar/todos.el index 9e0cf90a048..1689c80d820 100644 --- a/lisp/calendar/todos.el +++ b/lisp/calendar/todos.el @@ -800,7 +800,7 @@ Number of entries for each category is given by `todos-print-priorities'." (widen) (goto-char (point-max)) (while (re-search-backward - (concat "^" (regexp-quote (concat todo-prefix todo-category-beg)) + (concat "^" (regexp-quote (concat todos-prefix todos-category-beg)) "\\(.*\\)\n") (point-min) t) (push (match-string-no-properties 1) categories))))) @@ -950,6 +950,7 @@ Number of entries for each category is given by `todos-print-priorities'." (equal (expand-file-name todos-file-do) bufname))) (find-file todos-file-do) (todos-initial-setup)) + (unless (eq major-mode 'todos-mode) (todos-mode)) (unless todos-categories (setq todos-categories (todos-list-categories))) ;; (beginning-of-line) -- 2.39.5