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

Fix `org-hide-archived-subtrees' 

* lisp/org.el (org-hide-archived-subtrees): Prevent an error when END
  argument doesn't match the end of a subtree.  Prevent false
  positives.  Also, archive tag is case-sensitive.
This commit is contained in:
Nicolas Goaziou 2014-12-16 10:28:34 +01:00
parent eac147621e
commit 389274c1c4
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/org.el
View File

@ -4750,13 +4750,14 @@ Otherwise, these types are allowed:
(defun org-hide-archived-subtrees (beg end) (defun org-hide-archived-subtrees (beg end)
"Re-hide all archived subtrees after a visibility state change." "Re-hide all archived subtrees after a visibility state change."
(save-excursion (org-with-wide-buffer
(let* ((re (concat ":" org-archive-tag ":"))) (let ((case-fold-search nil)
(goto-char beg) (re (concat org-outline-regexp-bol ".*:" org-archive-tag ":")))
(while (re-search-forward re end t) (goto-char beg)
(when (org-at-heading-p) (while (and (< (point) end) (re-search-forward re end t))
(org-flag-subtree t) (when (member org-archive-tag (org-get-tags))
(org-end-of-subtree t)))))) (org-flag-subtree t)
(org-end-of-subtree t))))))
(declare-function outline-end-of-heading "outline" ()) (declare-function outline-end-of-heading "outline" ())
(declare-function outline-flag-region "outline" (from to flag)) (declare-function outline-flag-region "outline" (from to flag))