mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-22 11:10:42 +00:00
Code Releases Activity

org.el (org-display-inline-images): Search for #+ATTR within the current paragraph

Browse source 
* org.el (org-display-inline-images): Search for #+ATTR within
the current paragraph.
This commit is contained in:
Bastien Guerry 2012-09-27 23:30:52 +02:00
parent 1a1d062510
commit 570083d2ad
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/org.el
View file

@ -17961,9 +17961,11 @@ BEG and END default to the buffer boundaries."
(null org-image-actual-width))
(save-excursion
(save-match-data
(move-beginning-of-line 0)
(if (looking-at "#\\+ATTR.*width=\"\\([^\"]+\\)\"")
(string-to-number (match-string 1))))))
(when (re-search-backward
"#\\+ATTR.*width=\"\\([^\"]+\\)\""
(save-excursion
(re-search-backward "^[ \t]*$\\|\\`" nil t)) t)
(string-to-number (match-string 1))))))
width (cond ((eq org-image-actual-width t) nil)
((null org-image-actual-width) attrwidth)
((numberp org-image-actual-width)