ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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'.
This commit is contained in:
Nicolas Goaziou 2011-07-21 10:13:36 +02:00
parent b955d7539f
commit a7600032d0
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/org-indent.el
View File

@ -63,8 +63,6 @@ It will be set in `org-indent-initialize'.")
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 (defvar org-hide-leading-stars-before-indent-mode nil
"Used locally.") "Used locally.")
(defvar org-indent-outline-re (concat "^" outline-regexp)
"Regexp matching and headline or inline task.")
(defvar org-indent-deleted-headline-flag nil (defvar org-indent-deleted-headline-flag nil
"Non nil if the last deletion acted on an headline. "Non nil if the last deletion acted on an headline.
It is modified by `org-indent-notify-deleted-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) (and (/= beg end)
(save-excursion (save-excursion
(goto-char beg) (goto-char beg)
(re-search-forward org-indent-outline-re end t)))))
(save-match-data (save-match-data
(re-search-forward org-outline-regexp-bol end t)))))) (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) ((and (/= beg end)
(save-excursion (save-excursion
(goto-char beg) (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 (let ((end (save-excursion
(goto-char end) (outline-next-heading) (point)))) (goto-char end) (outline-next-heading) (point))))
(org-indent-remove-properties beg end) (org-indent-remove-properties beg end)