>From a9fa32d50f099d25517904792e089b93a24f8f6e Mon Sep 17 00:00:00 2001 From: John Kitchin Date: Tue, 5 Jul 2016 10:27:32 -0400 Subject: [PATCH 12/20] 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. --- lisp/org-info.el | 8 +++++--- 1 file 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)) -- 2.9.0