summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2015-08-19 16:24:34 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2015-08-19 16:24:34 +0200
commiteb62138ed060368beeb0f8716a190969979f7a3c (patch)
tree4c1676ff2827b4f1640756224e49d182b367636b
parentf4d76465be60d50540d1e4366da372308762d76b (diff)
downloadorg-mode-eb62138ed060368beeb0f8716a190969979f7a3c.tar.gz
Fix 93b73bd
* lisp/org-element.el (org-element-link-parser): Fix 93b73bd.
-rw-r--r--lisp/org-element.el5
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