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

org.el: don't escape image links with no description.

Browse source 
(org-make-link-string): Don't escape image links when no description
is provided by the user.  Otherwise those images won't be recognized
as images when trying to display inline pictures.
This commit is contained in:
Bastien Guerry 2011-06-30 17:35:23 +02:00
parent f0bbfe50aa
commit dbde087a21
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/org.el
View file

@ -8686,16 +8686,19 @@ according to FMT (default from `org-email-link-description-format')."
(setq description (replace-match "{" t t description)))
(while (string-match "\\]" description)
(setq description (replace-match "}" t t description))))
(when (equal (org-link-escape link) description)
(when (equal link description)
;; No description needed, it is identical
(setq description nil))
(when (and (not description)
(not (string-match (org-image-file-name-regexp) link))
(not (equal link (org-link-escape link))))
(setq description (org-extract-attributes link)))
(setq link (if (string-match org-link-types-re link)
(concat (match-string 1 link)
(org-link-escape (substring link (match-end 1))))
(org-link-escape link)))
(setq link
(cond ((string-match (org-image-file-name-regexp) link) link)
((string-match org-link-types-re link)
(concat (match-string 1 link)
(org-link-escape (substring link (match-end 1)))))
(t (org-link-escape link))))
(concat "[[" link "]"
(if description (concat "[" description "]") "")
"]"))