tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Merge branch 'maint'

Browse source
This commit is contained in:
Bastien Guerry 2014-03-14 09:59:38 +01:00
parent c1d5a0ae05 49a9c2b213
commit 07347025ee
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))
(setq indent (make-string total-nindent ?\ ))
(goto-char (point-min))
(while (and (not (eobp)) (re-search-forward "^" nil t))
(if (not (looking-at "$"))
(replace-match indent)
(forward-char 1))))
(while (re-search-forward "\\(^\\).+" nil t)
(replace-match indent nil nil nil 1)))
(if (org-bound-and-true-p org-edit-src-picture)
(setq total-nindent (+ total-nindent 2)))
(setq code (buffer-string))