Quellcode durchsuchen

org-agenda.el (org-agenda-finalize): Fix links activation

* org-agenda.el (org-agenda-finalize): Fix links activation.
Bastien Guerry vor 12 Jahren
Ursprung
Commit
ab5e372926
1 geänderte Dateien mit 8 neuen und 6 gelöschten Zeilen
  1. 8 6
      lisp/org-agenda.el

+ 8 - 6
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))))