diff --git a/ChangeLog b/ChangeLog index 9d83321a7..5695d6120 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2008-03-05 Bastien Guerry + + * org.el (org-follow-link-hook): New hook. + (org-agenda-custom-commands): Added "Component" as a tag for each + item in a command serie. + (org-open-at-point): Run `org-follow-link-hook'. + 2008-03-04 Bastien Guerry * org.el (org-agenda-schedule): Bugfix: don't display marker type diff --git a/org.el b/org.el index a6a94d895..9ff76fc3f 100644 --- a/org.el +++ b/org.el @@ -1246,6 +1246,11 @@ negates this setting for the duration of the command." :tag "Org Follow Link" :group 'org-link) +(defcustom org-follow-link-hook nil + "Hook that is run after a link has been followed." + :group 'org-link-follow + :type 'hook) + (defcustom org-tab-follows-link nil "Non-nil means, on links TAB will follow the link. Needs to be set before org.el is loaded." @@ -2486,7 +2491,7 @@ should provide a description for the prefix, like (list :tag "Command series, all agenda files" (string :tag "Access Key(s)") (string :tag "Description ") - (repeat + (repeat :tag "Component" (choice (const :tag "Agenda" (agenda)) (const :tag "TODO list" (alltodo)) @@ -12930,7 +12935,8 @@ optional argument IN-EMACS is non-nil, Emacs will visit the file." (t (browse-url-at-point))))) - (move-marker org-open-link-marker nil)) + (move-marker org-open-link-marker nil) + (run-hook-with-args 'org-follow-link-hook)) ;;; File search