tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ox: Tiny refactoring 

* lisp/ox.el (org-export-inline-image-p): Tiny refactoring.
This commit is contained in:
Nicolas Goaziou 2015-01-04 21:13:27 +01:00
parent b4b6584eea
commit 8ce845ba6c
1 changed files with 6 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/ox.el
View File

@ -3912,18 +3912,13 @@ the provided rules is non-nil. The default rule is
This only applies to links without a description."
(and (not (org-element-contents link))
(let ((case-fold-search t)
(rules (or rules org-export-default-inline-image-rule)))
(let ((case-fold-search t))
(catch 'exit
(mapc
(lambda (rule)
(and (string= (org-element-property :type link) (car rule))
(string-match (cdr rule)
(org-element-property :path link))
(throw 'exit t)))
rules)
;; Return nil if no rule matched.
nil))))
(dolist (rule (or rules org-export-default-inline-image-rule))
(and (string= (org-element-property :type link) (car rule))
(org-string-match-p (cdr rule)
(org-element-property :path link))
(throw 'exit t)))))))
(defun org-export-resolve-coderef (ref info)
"Resolve a code reference REF.