mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:36:26 +00:00
ox: Fix image links
* lisp/ox.el (org-export-insert-image-links): Properly set :parent property. * testing/lisp/test-ox.el (test-org-export/insert-image-links): Add test. Reported-by: Kaushal Modi <kaushal.modi@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/111238>
This commit is contained in:
parent
22520e8087
commit
d809a604f2
|
@ -4227,8 +4227,9 @@ Return modified DATA."
|
|||
(and (string= type (car rule))
|
||||
(string-match-p (cdr rule) path)))
|
||||
(or rules org-export-default-inline-image-rule))
|
||||
(org-element-set-contents
|
||||
l
|
||||
;; Replace contents with image link.
|
||||
(org-element-adopt-elements
|
||||
(org-element-set-contents l nil)
|
||||
(with-temp-buffer
|
||||
(save-excursion (insert contents))
|
||||
(org-element-link-parser))))))))
|
||||
|
|
|
@ -2757,6 +2757,14 @@ Para2"
|
|||
(org-test-with-parsed-data "[[http://orgmode.org][file:image.png]]"
|
||||
(org-element-map (org-export-insert-image-links tree info) 'link
|
||||
(lambda (l) (org-element-property :type l))))))
|
||||
;; Properly set `:parent' property when replace contents with image
|
||||
;; link.
|
||||
(should
|
||||
(memq 'link
|
||||
(org-test-with-parsed-data "[[http://orgmode.org][file:image.png]]"
|
||||
(org-element-map (org-export-insert-image-links tree info) 'link
|
||||
(lambda (l)
|
||||
(org-element-type (org-element-property :parent l)))))))
|
||||
;; With optional argument RULES, recognize different links as
|
||||
;; images.
|
||||
(should-not
|
||||
|
|
Loading…
Reference in a new issue