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

ensuring category is properly displayed.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/calendar/ChangeLog b/lisp/calendar/ChangeLog
index 33494043d1a..5a6bab346fc 100644
--- 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 33f413d4cf3..855ae7753e5 100644
--- 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)