todo-mode.el: Restore point on setting item done (Bug#19727)

calendar/todo-mode.el (todo-item-done): When done items are hidden,
restore point to its location prior to invoking this command.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0c8815c648e8c28b5a3966a60239d93c5206131..0e00cb2f17fa127662d8198dea908cc9648a8497 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2015-02-04  Robert Pluim  <rpluim@gmail.com>  (tiny change)
+
+       * calendar/todo-mode.el (todo-item-done): When done items are
+       hidden, restore point to its location prior to invoking this
+       command.  (Bug#19727)
+
 2015-02-04  Eli Zaretskii  <eliz@gnu.org>
 
        * textmodes/artist.el (artist-ellipse-compute-fill-info): Use

diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index 7ca57a42b768364ce43e5102ca11ed89c5fbb134..dcc960fb9bfa81a6aa1737218cb12a6886198476 100644 (file)
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -2816,7 +2816,8 @@ visible."
                          (goto-char (point-min))
                          (re-search-forward todo-done-string-start nil t)))
             (buffer-read-only nil)
-            item done-item opoint)
+            item done-item
+            (opoint (point)))
        ;; Don't add empty comment to done item.
        (setq comment (unless (zerop (length comment))
                        (concat " [" todo-comment-string ": " comment "]")))
@@ -2854,7 +2855,9 @@ visible."
        (todo-update-categories-sexp)
        (let ((todo-show-with-done show-done))
          (todo-category-select)
-         ;; When done items are shown, put cursor on first just done item.
+         ;; When done items are visible, put point at the top of the
+         ;; done items section.  When done items are hidden, restore
+         ;; point to its location prior to invoking this command.
          (when opoint (goto-char opoint)))))))
 
 (defun todo-item-undone ()