mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-05 02:13:02 +00:00
Code Releases Activity

org-e-latex: Fix an infloop with inline images

Browse source 
* EXPERIMENTAL/org-e-latex.el (org-e-latex-link--inline-image): Fix an
  infloop.
This commit is contained in:
Nicolas Goaziou 2012-01-25 13:18:28 +01:00
parent 1742683e4f
commit c4fad02b06
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -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")