* todos.el (todos-category-completions): Restore point after

ensuring category is properly displayed.

diff --git a/lisp/calendar/ChangeLog b/lisp/calendar/ChangeLog
index 33494043d1a2b7a72619fec3446594157dd01186..5a6bab346fcf3df44dc1b41de9666b997e4ddabf 100644 (file)
--- a/lisp/calendar/ChangeLog
+++ b/lisp/calendar/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-17  Stephen Berman  <stephen.berman@gmx.net>
+
+       * todos.el (todos-category-completions): Restore point after
+       ensuring category is properly displayed.
+
 2013-05-16  Stephen Berman  <stephen.berman@gmx.net>
 
        * todos.el (todos-filtered-items-mode-map): Update some bindings.

diff --git a/lisp/calendar/todos.el b/lisp/calendar/todos.el
index 33f413d4cf360bcc4461f2eb7c969e51e8d48621..855ae7753e55ecd32e40cfa265a68ccc50be8460 100644 (file)
--- a/lisp/calendar/todos.el
+++ b/lisp/calendar/todos.el
@@ -1216,7 +1216,7 @@ or, with non-nil ARCHIVE, the current archive file."
                (goto-char (point-min))
                (setq done (re-search-forward todos-done-string-start nil t))))
            (let ((todos-show-with-done done))
-             (todos-category-select)))
+             (save-excursion (todos-category-select))))
          (save-excursion
            (save-restriction
              (widen)