diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-19 16:24:34 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-19 16:24:34 +0200 |
commit | eb62138ed060368beeb0f8716a190969979f7a3c (patch) | |
tree | 4c1676ff2827b4f1640756224e49d182b367636b | |
parent | f4d76465be60d50540d1e4366da372308762d76b (diff) | |
download | org-mode-eb62138ed060368beeb0f8716a190969979f7a3c.tar.gz |
Fix 93b73bd
* lisp/org-element.el (org-element-link-parser): Fix 93b73bd.
-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 d703643..8f41ab2 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -3129,8 +3129,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 |