From 07e9ad2aa23949f18875f3bbbcd72e28e0b62cf6 Mon Sep 17 00:00:00 2001 From: Bastien Date: Wed, 5 Feb 2020 07:51:19 +0100 Subject: [PATCH] org-agenda.el: Fix for `org-agenda-open-link' * lisp/org-agenda.el (org-agenda-open-link): Fix opening links that moves the point in the link buffer. Thanks to Ihor Radchenko for reporting this. --- lisp/org-agenda.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index aed7f86c2..4fef62d69 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -8924,11 +8924,14 @@ It also looks at the text of the entry itself." (setq trg (and (string-match org-link-bracket-re l) (match-string 1 l))) (if (or (not trg) (string-match org-link-any-re trg)) - (org-with-wide-buffer - (goto-char marker) - (when (search-forward l nil lkend) - (goto-char (match-beginning 0)) - (org-open-at-point))) + ;; Don't use `org-with-wide-buffer' here as + ;; opening the link may result in moving the point + (save-restriction + (widen) + (goto-char marker) + (when (search-forward l nil lkend) + (goto-char (match-beginning 0)) + (org-open-at-point))) ;; This is an internal link, widen the buffer (switch-to-buffer-other-window buffer) (widen)