mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

More minor fixes to org-indent-mode

This commit is contained in:
Carsten Dominik 2009-08-03 10:25:11 +02:00
parent 65cb546662
commit 487f187c19
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-indent.el
View File

@ -196,6 +196,9 @@ useful to make it evver so slightly different."
'(line-prefix nil wrap-prefix nil) string)
string)
(defvar org-indent-outline-re (concat "^" org-outline-regexp)
"Outline heading regexp.")
(defun org-indent-add-properties (beg end)
"Add indentation properties between BEG and END.
Assumes that BEG is at the beginning of a line."
@ -206,7 +209,7 @@ Assumes that BEG is at the beginning of a line."
(goto-char beg)
(while (not exit)
(setq e end)
(if (not (re-search-forward org-outline-regexp nil t))
(if (not (re-search-forward org-indent-outline-re nil t))
(setq e (point-max) exit t)
(setq e (match-beginning 0))
(if (>= e end) (setq exit t))