diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-19 16:24:55 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-19 16:24:55 +0200 |
commit | 016d84fe8ffc310bd44f932a1b13ae658e9ca42b (patch) | |
tree | 05737a3889e84b178f911e5ef99a59e952670076 | |
parent | ad685348fd4c0753597ff7855f9513184294c25f (diff) | |
parent | eb62138ed060368beeb0f8716a190969979f7a3c (diff) | |
download | org-mode-016d84fe8ffc310bd44f932a1b13ae658e9ca42b.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/org-element.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org-element.el b/lisp/org-element.el index 3edcfe5..c6508fd 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -3103,8 +3103,9 @@ Assume point is at the beginning of the link." ;; Translate link, if `org-link-translation-function' is set. (let ((trans (and (functionp org-link-translation-function) (funcall org-link-translation-function type path)))) - (setq type (car trans)) - (setq path (cdr trans))) + (when trans + (setq type (car trans)) + (setq path (cdr trans)))) (list 'link (list :type type :path path |