Browse Source

Run `org-follow-link-hook' after following any link types

Carsten Dominik 15 years ago
parent
commit
f24f2ea410
2 changed files with 4 additions and 3 deletions
  1. 1 0
      lisp/ChangeLog
  2. 3 3
      lisp/org.el

+ 1 - 0
lisp/ChangeLog

@@ -2,6 +2,7 @@
 
 	* org.el (org-fontify-meta-lines-and-blocks): Treat lines with a
 	space after #+ as comments.
+	(org-open-at-point): Run `org-follow-link-hook' always.
 
 	* org-latex.el (org-export-latex-emph-format): Use better commands
 	to insert special characters in verbatim snippets.

+ 3 - 3
lisp/org.el

@@ -8098,9 +8098,9 @@ application the system uses for this file type."
 	      (error "Abort"))))
 
 	 (t
-	  (browse-url-at-point))))))
-   (move-marker org-open-link-marker nil)
-   (run-hook-with-args 'org-follow-link-hook)))
+	  (browse-url-at-point)))))))
+  (move-marker org-open-link-marker nil)
+  (run-hook-with-args 'org-follow-link-hook))
 
 (defun org-offer-links-in-entry (&optional nth zero)
   "Offer links in the curren entry and follow the selected link.