mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

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

Browse Source 
calendar/todo-mode.el (todo-item-done): When done items are hidden,
restore point to its location prior to invoking this command.
This commit is contained in:
Robert Pluim 2015-02-04 22:38:52 +01:00 committed by Stephen Berman
parent 9615c0dead
commit 008a04ac9a
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

7
lisp/calendar/todo-mode.el
View File

@ -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 ()