From: Robert Pluim <rpluim@gmail.com>
Date: Wed, 4 Feb 2015 21:38:52 +0000 (+0100)
Subject: todo-mode.el: Restore point on setting item done  (Bug#19727)
X-Git-Tag: emacs-24.4.91~39
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=008a04a;p=emacs.git

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 e0c8815c648..0e00cb2f17f 100644
--- 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 7ca57a42b76..dcc960fb9bf 100644
--- 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 ()