瀏覽代碼

org-indent: remove unused variable org-indent-outline-re

* lisp/org-indent.el (org-indent-notify-deleted-headline,
  org-indent-refresh-maybe): replace `org-indent-outline-re' with
  `org-outline-regexp-bol'.
Nicolas Goaziou 13 年之前
父節點
當前提交
a7600032d0
共有 1 個文件被更改,包括 1 次插入4 次删除
  1. 1 4
      lisp/org-indent.el

+ 1 - 4
lisp/org-indent.el

@@ -63,8 +63,6 @@ It will be set in `org-indent-initialize'.")
 It will be set in `org-indent-initialize'.")
 (defvar org-hide-leading-stars-before-indent-mode nil
   "Used locally.")
-(defvar org-indent-outline-re (concat "^" outline-regexp)
-  "Regexp matching and headline or inline task.")
 (defvar org-indent-deleted-headline-flag nil
   "Non nil if the last deletion acted on an headline.
 It is modified by `org-indent-notify-deleted-headline'.")
@@ -286,7 +284,6 @@ Flag will be non-nil if command is going to delete an headline."
 	(and (/= beg end)
 	     (save-excursion
 	       (goto-char beg)
-	       (re-search-forward org-indent-outline-re end t)))))
 	       (save-match-data
 		 (re-search-forward org-outline-regexp-bol end t))))))
 
@@ -309,7 +306,7 @@ This function is meant to be called by `after-change-functions'."
        ((and (/= beg end)
 	     (save-excursion
 	       (goto-char beg)
-	       (re-search-forward org-indent-outline-re end t)))
+	       (re-search-forward org-outline-regexp-bol end t)))
 	(let ((end (save-excursion
 		     (goto-char end) (outline-next-heading) (point))))
 	  (org-indent-remove-properties beg end)