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. "Return format string for code reference link.
PATH is the link path. DESC is its description." PATH is the link path. DESC is its description."
(save-match-data (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)) (replace-match "%s" t t desc))
((string= desc "") "%s")
(t desc)))) (t desc))))
(defun org-export-inline-image-p (link &optional rules) (defun org-export-inline-image-p (link &optional rules)