瀏覽代碼

More minor fixes to org-indent-mode

Carsten Dominik 15 年之前
父節點
當前提交
487f187c19
共有 1 個文件被更改,包括 4 次插入1 次删除
  1. 4 1
      lisp/org-indent.el

+ 4 - 1
lisp/org-indent.el

@@ -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))