ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

New hook: `org-follow-link-hook'. 

Also added "Component" as a tag for each item in a command serie.
This commit is contained in:
Bastien Guerry 2008-03-05 14:29:39 +00:00
parent 3752a0f01d
commit dfa6bdb2f7
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ChangeLog
View File

@ -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> 2008-03-04 Bastien Guerry <bzg@altern.org>
* org.el (org-agenda-schedule): Bugfix: don't display marker type * org.el (org-agenda-schedule): Bugfix: don't display marker type

10
org.el
View File

@ -1246,6 +1246,11 @@ negates this setting for the duration of the command."
:tag "Org Follow Link" :tag "Org Follow Link"
:group 'org-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 (defcustom org-tab-follows-link nil
"Non-nil means, on links TAB will follow the link. "Non-nil means, on links TAB will follow the link.
Needs to be set before org.el is loaded." 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" (list :tag "Command series, all agenda files"
(string :tag "Access Key(s)") (string :tag "Access Key(s)")
(string :tag "Description ") (string :tag "Description ")
(repeat (repeat :tag "Component"
(choice (choice
(const :tag "Agenda" (agenda)) (const :tag "Agenda" (agenda))
(const :tag "TODO list" (alltodo)) (const :tag "TODO list" (alltodo))
@ -12930,7 +12935,8 @@ optional argument IN-EMACS is non-nil, Emacs will visit the file."
(t (t
(browse-url-at-point))))) (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 ;;; File search