mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-16 23:46:28 +00:00
Code Releases Activity

Modification to the type signature of `org-export-inline-image-p'

Browse source 
EXPERIMENTAL/org-e-latex.el (org-e-latex-link): Apply changes.
contrib/lisp/org-export.el (org-export-inline-image-p): Remove
description of the link as a required argument, since this function is
called with link contents anyway.
This commit is contained in:
Nicolas Goaziou 2011-12-20 18:50:59 +01:00
parent 69505ed062
commit c3972265bb
2 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
EXPERIMENTAL/org-e-latex.el
View file

@ -1251,7 +1251,7 @@ INFO is a plist holding contextual information. See
;; Ensure DESC really exists, or set it to nil.
(desc (and (not (string= desc "")) desc))
(imagep (org-export-inline-image-p
link desc org-e-latex-inline-image-extensions))
link org-e-latex-inline-image-extensions))
(path (cond
((member type '("http" "https" "ftp" "mailto"))
(concat type ":" raw-path))

6
contrib/lisp/org-export.el
View file

@ -2277,15 +2277,13 @@ PATH is the link path. DESC is its description."
((string= desc "") "%s")
(t desc))))
(defun org-export-inline-image-p (link contents &optional extensions)
(defun org-export-inline-image-p (link &optional extensions)
"Non-nil if LINK object points to an inline image.
CONTENTS is the link description part, as a string, or nil.
When non-nil, optional argument EXTENSIONS is a list of valid
extensions for image files, as strings. Otherwise, a default
list is provided \(cf. `org-image-file-name-regexp'\)."
(and (or (not contents) (string= contents ""))
(and (not (org-element-get-contents link))
(string= (org-element-get-property :type link) "file")
(org-file-image-p
(expand-file-name (org-element-get-property :path link))