* calendar/todos.el (todos-forward-category): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5be90afcb7fbff9ee63928ba648b7244b4b22e59..483befca9b392d2498bd094f4ea7bf9466c01a53 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-11-15  Stephen Berman  <stephen.berman@gmx.net>
+
+       * calendar/todos.el (todos-forward-category): Fix typo.
+
 2012-10-30  Stephen Berman  <stephen.berman@gmx.net>
 
        * calendar/todos.el (todos-define-insertion-command):

diff --git a/lisp/calendar/todos.el b/lisp/calendar/todos.el
index 056ebc446a9d11c1ea359e2e82205384842d4c48..b2285a54b56ef6f079bc507eb02b5897c123c1ee 100644 (file)
--- a/lisp/calendar/todos.el
+++ b/lisp/calendar/todos.el
@@ -3153,7 +3153,7 @@ category is the first)."
   (when todos-skip-archived-categories
     (while (and (zerop (todos-get-count 'todo))
                (zerop (todos-get-count 'done))
-               (not (zerop (todos-get-count 'archive))))
+               (not (zerop (todos-get-count 'archived))))
       (setq todos-category-number
            (apply (if back '1- '1+) (list todos-category-number)))))
   (todos-category-select)