mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-15 22:40:05 +00:00
org-e-latex: Fix an infloop with inline images
* EXPERIMENTAL/org-e-latex.el (org-e-latex-link--inline-image): Fix an infloop.
This commit is contained in:
parent
1742683e4f
commit
c4fad02b06
|
@ -1319,12 +1319,11 @@ INFO is a plist containing export options."
|
||||||
(t ""))))
|
(t ""))))
|
||||||
;; Now clear ATTR from any special keyword and set a default
|
;; Now clear ATTR from any special keyword and set a default
|
||||||
;; value if nothing is left.
|
;; value if nothing is left.
|
||||||
(if (not attr)
|
(setq attr
|
||||||
(setq attr "")
|
(if (not attr) ""
|
||||||
(while (string-match "\\(wrap\\|multicolumn\\|float\\|placement=\\S-+\\)"
|
(org-trim
|
||||||
attr)
|
(replace-regexp-in-string
|
||||||
(replace-match "" nil nil attr))
|
"\\(wrap\\|multicolumn\\|float\\|placement=\\S-+\\)" "" attr))))
|
||||||
(setq attr (org-trim attr)))
|
|
||||||
(setq attr (cond ((not (string= attr "")) attr)
|
(setq attr (cond ((not (string= attr "")) attr)
|
||||||
((eq disposition 'float) "width=0.7\\textwidth")
|
((eq disposition 'float) "width=0.7\\textwidth")
|
||||||
((eq disposition 'wrap) "width=0.48\\textwidth")
|
((eq disposition 'wrap) "width=0.48\\textwidth")
|
||||||
|
|
Loading…
Reference in a new issue