diff options
| author | Bastien Guerry <bzg@altern.org> | 2012-12-20 15:34:10 +0100 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2012-12-20 15:34:10 +0100 |
| commit | ab5e3729266b65182ca73fdd69eb9f29f870b17a (patch) | |
| tree | 1c7f0e337d08a1fd4e7ce720209ccbc56ebf0e02 | |
| parent | bfb9f9d10fe7db2e45cd925567beb824f6d67397 (diff) | |
| download | org-mode-ab5e3729266b65182ca73fdd69eb9f29f870b17a.tar.gz | |
org-agenda.el (org-agenda-finalize): Fix links activation
* org-agenda.el (org-agenda-finalize): Fix links activation.
| -rw-r--r-- | lisp/org-agenda.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 522aa19..68be0fe 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3514,12 +3514,14 @@ generating a new one." (save-excursion (let ((inhibit-read-only t)) (goto-char (point-min)) - (while (org-activate-bracket-links (point-max)) - (add-text-properties (match-beginning 0) (match-end 0) - '(face org-link))) - (while (org-activate-plain-links (point-max)) - (add-text-properties (match-beginning 0) (match-end 0) - '(face org-link))) + (save-excursion + (while (org-activate-bracket-links (point-max)) + (add-text-properties (match-beginning 0) (match-end 0) + '(face org-link)))) + (save-excursion + (while (org-activate-plain-links (point-max)) + (add-text-properties (match-beginning 0) (match-end 0) + '(face org-link)))) (org-agenda-align-tags) (unless org-agenda-with-colors (remove-text-properties (point-min) (point-max) '(face nil)))) |