diff options
| author | John Kitchin <jkitchin@andrew.cmu.edu> | 2016-07-05 10:27:32 -0400 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-07-18 22:47:50 +0200 |
| commit | 692f874a128459b13d9fdba9ab0d893f52b6948c (patch) | |
| tree | e21d282efaf4c6ab933f9a2afd623b1906bb2e17 | |
| parent | 386e3957a6dd8fb8230b71d61a71a1dd288d7bb9 (diff) | |
| download | org-mode-692f874a128459b13d9fdba9ab0d893f52b6948c.tar.gz | |
Update info link definition
* lisp/org-info.el ("info"):
Update link definition with org-link-set-parameters and change a doc string to
point to org-link-parameters.
| -rw-r--r-- | lisp/org-info.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/org-info.el b/lisp/org-info.el index 9e8fde0..8765c53 100644 --- a/lisp/org-info.el +++ b/lisp/org-info.el @@ -40,8 +40,10 @@ (defvar Info-current-node) ;; Install the link type -(org-add-link-type "info" 'org-info-open 'org-info-export) -(add-hook 'org-store-link-functions 'org-info-store-link) +(org-link-set-parameters "info" + :follow #'org-info-open + :export #'org-info-export + :store #'org-info-store-link) ;; Implementation (defun org-info-store-link () @@ -113,7 +115,7 @@ emacs related documents. See `org-info-official-gnu-document' and (defun org-info-export (path desc format) "Export an info link. -See `org-add-link-type' for details about PATH, DESC and FORMAT." +See `org-link-parameters' for details about PATH, DESC and FORMAT." (when (eq format 'html) (or (string-match "\\(.*\\)[#:]:?\\(.*\\)" path) (string-match "\\(.*\\)" path)) |