tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-agenda.el (org-agenda-archive-with): Save window excursion

Browse source 
* org-agenda.el (org-agenda-archive-with): Save window
excursion.
This commit is contained in:
Bastien Guerry 2013-07-05 14:29:51 +02:00
parent eeb1323933
commit ce08e04629
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/org-agenda.el
View file

@ -8378,7 +8378,7 @@ Point is in the buffer where the item originated.")
(if (and confirm
(not (y-or-n-p "Archive this subtree or entry? ")))
(error "Abort")
(save-excursion
(save-window-excursion
(goto-char pos)
(let ((org-agenda-buffer-name bufname-orig))
(org-remove-subtree-entries-from-agenda))