diff options
author | John Kitchin <jkitchin@andrew.cmu.edu> | 2016-07-05 10:20:23 -0400 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-07-18 22:47:48 +0200 |
commit | de6858f293bcc5b98c9fdde2f5a112d87c017723 (patch) | |
tree | 2945378c43f73b0dc04a6e61a29f04b7cf4b1707 | |
parent | a5f5fedf3e183944ea5678a90f66c19c7372e514 (diff) | |
download | org-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.el | 2 |
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 ":"))))) |