From 680fbfc0a91552c5d73e853effadeaa683266ec9 Mon Sep 17 00:00:00 2001 From: Yuval Langer Date: Thu, 24 Nov 2022 19:27:00 +0200 Subject: [PATCH] Explain how to remove restrictions (narrowing) from current buffer. --- lisp/org.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 64b33e597..45650efb5 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -7220,7 +7220,8 @@ If yes, remember the marker and the distance to BEG." (setq org-markers-to-move nil)) (defun org-narrow-to-subtree (&optional element) - "Narrow buffer to the current subtree." + "Narrow buffer to the current subtree. + Use the command M-x widen to see the whole buffer again." (interactive) (if (org-element--cache-active-p) (let* ((heading (org-element-lineage @@ -7242,7 +7243,8 @@ If yes, remember the marker and the distance to BEG." (point)))))))) (defun org-toggle-narrow-to-subtree () - "Narrow to the subtree at point or widen a narrowed buffer." + "Narrow to the subtree at point or widen a narrowed buffer. + Use the command M-x widen to see the whole buffer again." (interactive) (if (buffer-narrowed-p) (progn (widen) (message "Buffer widen")) @@ -7250,7 +7252,8 @@ If yes, remember the marker and the distance to BEG." (message "Buffer narrowed to current subtree"))) (defun org-narrow-to-block () - "Narrow buffer to the current block." + "Narrow buffer to the current block. + Use the command M-x widen to see the whole buffer again." (interactive) (let* ((case-fold-search t) (blockp (org-between-regexps-p "^[ \t]*#\\+begin_.*" @@ -21162,7 +21165,8 @@ ones already marked." (goto-char (org-element-property :begin element)))))) (defun org-narrow-to-element () - "Narrow buffer to current element." + "Narrow buffer to current element. + Use the command M-x widen to see the whole buffer again." (interactive) (let ((elem (org-element-at-point))) (cond -- 2.30.2