From 008a04ac9af20540d6e7ee4b61fb5bb3b21ef0e6 Mon Sep 17 00:00:00 2001 From: Robert Pluim Date: Wed, 4 Feb 2015 22:38:52 +0100 Subject: [PATCH] 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. --- lisp/ChangeLog | 6 ++++++ lisp/calendar/todo-mode.el | 7 +++++-- 2 files changed, 11 insertions(+), 2 deletions(-) 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 (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 * 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 () -- 2.11.4.GIT