1
0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-29 07:58:21 +00:00

Use outline-regexp in org-overview so that global cycling works outside of Org buffers.

* org.el (org-overview): Use outline-regexp instead of
org-outline-regexp so that global cycling using orgstruct-mode
works outside of Org buffers.

Thanks to Matt Lundin for this fix.
This commit is contained in:
Bastien Guerry 2011-08-15 09:51:44 +02:00
parent bc1b688ff0
commit c6bee11433

View File

@ -6227,6 +6227,9 @@ With a numeric prefix, show all headlines up to that level."
(org-cycle-hide-drawers 'all)
(org-cycle-show-empty-lines 'all)))))
;; This function uses outline-regexp instead of the more fundamental
;; org-outline-regexp so that org-cycle-global works outside of Org
;; buffers, where outline-regexp is needed.
(defun org-overview ()
"Switch to overview mode, showing only top-level headlines.
Really, this shows all headlines with level equal or greater than the level
@ -6236,7 +6239,7 @@ results."
(interactive)
(let ((level (save-excursion
(goto-char (point-min))
(if (re-search-forward org-outline-regexp-bol nil t)
(if (re-search-forward (concat "^" outline-regexp) nil t)
(progn
(goto-char (match-beginning 0))
(funcall outline-level))))))