diff options
author | Bastien Guerry <bzg@altern.org> | 2013-11-06 16:15:45 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-11-06 16:15:45 +0100 |
commit | fe3379bda6ca23474639b114592958bf14431c88 (patch) | |
tree | 6f210434f1976e0fcd8cb358f6641cb0399fe17e | |
parent | 4c94c4d062ce7aa28bc21301ec34857745029f5c (diff) | |
download | org-mode-fe3379bda6ca23474639b114592958bf14431c88.tar.gz |
org.el (org-agenda-prepare-buffers): Restore the point position
* org.el (org-agenda-prepare-buffers): Restore the point
position.
Thanks to Samuel Wales for spotting this.
-rw-r--r-- | lisp/org.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/org.el b/lisp/org.el index 7b68ba1..2b5e3d0 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -18052,10 +18052,10 @@ When a buffer is unmodified, it is just killed. When modified, it is saved (inhibit-read-only t) (org-inhibit-startup org-agenda-inhibit-startup) (rea (concat ":" org-archive-tag ":")) - file re) + file re pos) (setq org-tag-alist-for-agenda nil org-tag-groups-alist-for-agenda nil) - (save-excursion + (save-window-excursion (save-restriction (while (setq file (pop files)) (catch 'nextfile @@ -18065,6 +18065,7 @@ When a buffer is unmodified, it is just killed. When modified, it is saved (set-buffer (org-get-agenda-file-buffer file))) (widen) (org-set-regexps-and-options-for-tags) + (setq pos (point)) (goto-char (point-min)) (let ((case-fold-search t)) (when (search-forward "#+setupfile" nil t) @@ -18108,7 +18109,8 @@ When a buffer is unmodified, it is just killed. When modified, it is saved org-comment-string)) (while (re-search-forward re nil t) (add-text-properties - (match-beginning 0) (org-end-of-subtree t) pc)))))))) + (match-beginning 0) (org-end-of-subtree t) pc)))) + (goto-char pos))))) (setq org-todo-keywords-for-agenda (org-uniquify org-todo-keywords-for-agenda)) (setq org-todo-keyword-alist-for-agenda |