From 2c5a5fa3cdb06390d3c20a47c97720074a1af507 Mon Sep 17 00:00:00 2001 From: Yuval Langer Date: Fri, 25 Nov 2022 16:40:50 +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..b30d2997a 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 \\[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 \\[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 \\[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 \\[widen] to see the whole buffer again." (interactive) (let ((elem (org-element-at-point))) (cond -- 2.30.2