diff options
author | Bastien Guerry <bzg@altern.org> | 2008-03-05 14:29:39 +0000 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2008-03-05 14:31:19 +0000 |
commit | dfa6bdb2f72ac8a3f47568e15b4be48251cb2996 (patch) | |
tree | 8633b45a8ae427c13eed98311f413f433719b517 | |
parent | 3752a0f01dafeaac5e80a71e009e307354e2a145 (diff) | |
download | org-mode-dfa6bdb2f72ac8a3f47568e15b4be48251cb2996.tar.gz |
New hook: `org-follow-link-hook'.
Also added "Component" as a tag for each item in a command serie.
-rw-r--r-- | ChangeLog | 7 | ||||
-rw-r--r-- | org.el | 10 |
2 files changed, 15 insertions, 2 deletions
@@ -1,3 +1,10 @@ +2008-03-05 Bastien Guerry <bzg@altern.org> + + * 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 <bzg@altern.org> * org.el (org-agenda-schedule): Bugfix: don't display marker type @@ -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 |