org.el (org-agenda-prepare-buffers): Restore the point position
authorBastien Guerry <bzg@altern.org>
Wed, 6 Nov 2013 15:15:45 +0000 (16:15 +0100)
committerBastien Guerry <bzg@altern.org>
Wed, 6 Nov 2013 15:15:45 +0000 (16:15 +0100)
* org.el (org-agenda-prepare-buffers): Restore the point
position.

Thanks to Samuel Wales for spotting this.

lisp/org.el

index 7b68ba1..2b5e3d0 100644 (file)
@@ -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