org-export: Fix small bug

* contrib/lisp/org-export.el (org-export-get-coderef-format): Handle
  nil descriptions.
This commit is contained in:
Nicolas Goaziou 2012-04-21 15:18:28 +02:00 committed by Jambunathan K
parent 7ba1d26253
commit 0264495f52
1 changed files with 2 additions and 2 deletions

View File

@ -2736,9 +2736,9 @@ INFO is the plist used as a communication channel."
"Return format string for code reference link.
PATH is the link path. DESC is its description."
(save-match-data
(cond ((string-match (regexp-quote (concat "(" path ")")) desc)
(cond ((not desc) "%s")
((string-match (regexp-quote (concat "(" path ")")) desc)
(replace-match "%s" t t desc))
((string= desc "") "%s")
(t desc))))
(defun org-export-inline-image-p (link &optional rules)