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

Fix 9323857 (again^2)

Browse source 
Thanks to Florian Beck for providing the right fix.
This commit is contained in:
Bastien Guerry 2014-03-14 09:59:28 +01:00
parent 5ef5e7119f
commit 49a9c2b213
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/org-src.el
View file

@ -737,10 +737,8 @@ with \",*\", \",#+\", \",,*\" and \",,#+\"."
(unless (or single preserve-indentation (= total-nindent 0)) (unless (or single preserve-indentation (= total-nindent 0))
(setq indent (make-string total-nindent ?\ )) (setq indent (make-string total-nindent ?\ ))
(goto-char (point-min)) (goto-char (point-min))
(while (and (not (eobp)) (re-search-forward "^" nil t)) (while (re-search-forward "\\(^\\).+" nil t)
(if (not (looking-at "$")) (replace-match indent nil nil nil 1)))
(replace-match indent)
(forward-char 1))))
(if (org-bound-and-true-p org-edit-src-picture) (if (org-bound-and-true-p org-edit-src-picture)
(setq total-nindent (+ total-nindent 2))) (setq total-nindent (+ total-nindent 2)))
(setq code (buffer-string)) (setq code (buffer-string))