浏览代码

Push a mark before the agenda can move point in a buffer

Patch by Andreas Seltenreich.
Carsten Dominik 15 年之前
父节点
当前提交
9822a6799a
共有 2 个文件被更改,包括 4 次插入0 次删除
  1. 3 0
      lisp/ChangeLog
  2. 1 0
      lisp/org-agenda.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2010-04-27  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-agenda.el (org-agenda-goto): Push a mark before changing
+	the position.
+
 	* org-footnote.el (org-footnote): New group.
 	(org-footnote-section)
 	(org-footnote-tag-for-non-org-mode-files): Fix typos.

+ 1 - 0
lisp/org-agenda.el

@@ -6082,6 +6082,7 @@ and by additional input from the age of a schedules or deadline entry."
 	 (pos (marker-position marker)))
     (switch-to-buffer-other-window buffer)
     (widen)
+    (push-mark)
     (goto-char pos)
     (when (org-mode-p)
       (org-show-context 'agenda)