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

org-element: Small optimization 

* lisp/org-element.el (org-element--remove-indentation): Small
  optimization.
This commit is contained in:
Nicolas Goaziou 2013-05-25 22:02:26 +02:00
parent 10169054eb
commit 206762bd34
1 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
lisp/org-element.el
View File

@ -1660,22 +1660,22 @@ function doesn't call `untabify' on S."
(goto-char (point-min))
;; Find maximum common indentation, if not specified.
(setq n (or n
(catch 'min-ind
(let ((min-ind (point-max)))
(save-excursion
(while (re-search-forward "^[ \t]*\\S-" nil t)
(let ((ind (1- (current-column))))
(if (zerop ind) (throw 'min-ind 0)
(setq min-ind (min min-ind ind))))))
min-ind))))
;; Remove exactly N indentation, but give up if not possible.
(while (not (eobp))
(let ((ind (progn (skip-chars-forward " \t") (current-column))))
(cond ((eolp) (delete-region (line-beginning-position) (point)))
((< ind n) (throw 'exit s))
(t (org-indent-line-to (- ind n))))
(forward-line)))
(buffer-string))))
(let ((min-ind (point-max)))
(save-excursion
(while (re-search-forward "^[ \t]*\\S-" nil t)
(let ((ind (1- (current-column))))
(if (zerop ind) (throw 'exit s)
(setq min-ind (min min-ind ind))))))
min-ind)))
(if (zerop n) s
;; Remove exactly N indentation, but give up if not possible.
(while (not (eobp))
(let ((ind (progn (skip-chars-forward " \t") (current-column))))
(cond ((eolp) (delete-region (line-beginning-position) (point)))
((< ind n) (throw 'exit s))
(t (org-indent-line-to (- ind n))))
(forward-line)))
(buffer-string)))))
(defun org-element-example-block-parser (limit affiliated)
"Parse an example block.