mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

org.el/org-narrow-to-subtree: Support cache and passing element arg

Browse Source
This commit is contained in:
Ihor Radchenko 2021-10-16 23:29:11 +08:00
parent bc52c4d9ab
commit 68a44eadac
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 18 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/org.el
View File

@ -7899,17 +7899,26 @@ If yes, remember the marker and the distance to BEG."
(move-marker (car x) (+ beg (cdr x))))
(setq org-markers-to-move nil))
(defun org-narrow-to-subtree ()
(defun org-narrow-to-subtree (&optional element)
"Narrow buffer to the current subtree."
(interactive)
(save-excursion
(save-match-data
(org-with-limited-levels
(narrow-to-region
(progn (org-back-to-heading t) (point))
(progn (org-end-of-subtree t t)
(when (and (org-at-heading-p) (not (eobp))) (backward-char 1))
(point)))))))
(if (org-element--cache-active-p)
(if-let* ((heading (org-element-lineage
(or element (org-element-at-point))
'(headline) t))
(end (org-element-property :end heading)))
(narrow-to-region (org-element-property :begin heading)
(if (= end (point-max))
end (1- end)))
(signal 'outline-before-first-heading nil))
(save-excursion
(save-match-data
(org-with-limited-levels
(narrow-to-region
(progn (org-back-to-heading t) (point))
(progn (org-end-of-subtree t t)
(when (and (org-at-heading-p) (not (eobp))) (backward-char 1))
(point))))))))
(defun org-toggle-narrow-to-subtree ()
"Narrow to the subtree at point or widen a narrowed buffer."