diff options
| author | Robert Pluim <rpluim@gmail.com> | 2015-02-04 22:38:52 +0100 |
|---|---|---|
| committer | Stephen Berman <stephen.berman@gmx.net> | 2015-02-04 22:38:52 +0100 |
| commit | 008a04ac9af20540d6e7ee4b61fb5bb3b21ef0e6 (patch) | |
| tree | 49514545684c591e7bacde33537d6ae57e9cafa5 | |
| parent | 9615c0dead1b5828fa6a599eb7fa18551921938b (diff) | |
| download | emacs-008a04ac9af20540d6e7ee4b61fb5bb3b21ef0e6.tar.gz | |
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.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 <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 () |