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

Fix indentation problem with editing blocks

This commit is contained in:
Carsten Dominik 2009-05-29 06:27:25 +02:00
parent 5ce1c5708f
commit c030d53eb0
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org.el
View File

@ -15496,13 +15496,14 @@ N may optionally be the number of spaces to remove."
(defun org-do-remove-indentation (&optional n)
"Remove the maximum common indentation from the buffer."
(untabify (point-min) (point-max))
(let ((min 10000) re)
(if n
(setq min n)
(goto-char (point-min))
(while (re-search-forward "^ +[^ \n]" nil t)
(while (re-search-forward "^ *[^ \n]" nil t)
(setq min (min min (1- (- (match-end 0) (match-beginning 0)))))))
(unless (= min 0)
(unless (or (= min 0) (= min 10000))
(setq re (format "^ \\{%d\\}" min))
(goto-char (point-min))
(while (re-search-forward re nil t)