summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn Kitchin <jkitchin@andrew.cmu.edu>2016-07-05 10:20:23 -0400
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-07-18 22:47:48 +0200
commitde6858f293bcc5b98c9fdde2f5a112d87c017723 (patch)
tree2945378c43f73b0dc04a6e61a29f04b7cf4b1707
parenta5f5fedf3e183944ea5678a90f66c19c7372e514 (diff)
downloadorg-mode-de6858f293bcc5b98c9fdde2f5a112d87c017723.tar.gz
Get the complete function from `org-link-parameters'
* lisp/org.el (org-link-try-special-completion): Get the follow function from `org-link-parameters' Only follow when a function is defined. * lisp/org.el (org-open-at-point): Some links don't have a :follow function, so we should not call nil in that case.
-rw-r--r--lisp/org.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el
index 949899a..0b4954e 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -10465,7 +10465,7 @@ Use TAB to complete link prefixes, then RET for type-specific completion support
(defun org-link-try-special-completion (type)
"If there is completion support for link type TYPE, offer it."
- (let ((fun (intern (concat "org-" type "-complete-link"))))
+ (let ((fun (org-link-get-parameter type :complete)))
(if (functionp fun)
(funcall fun)
(read-string "Link (no completion support): " (concat type ":")))))