On Saturday, November 26th, 2022 at 04:26, Ihor Radchenko <yanta...@posteo.net>
wrote:
> yuvallangerontheroad yuvallangeronther...@proton.me writes:
>
> > > Extra [...] are redundant.
> > > Please test the patch before submitting.
> >
> > Sorry. Removed redundant brackets.
>
>
> Thanks.
:)
> It is also a good idea to add quotes around the command key. See the
> example in 25.3 Substituting Key Bindings in Documentation
> (I am honestly not sure how important quoting is, but let's better
> follow the Elisp manual).
Hopefully done.
> Also, please make the commit message more concrete.
>
> Maybe something like
>
> org: Mention how to widen in docstrings of the commands that do narrowing
Hopefully done.
> Finally, please follow the commit message format as described in
> https://orgmode.org/worg/org-contribute.html#commit-messages
> In particular, add the changelog entries and TINYCHANGE cookie (I assume
> that you don't have FSF copyright assignment).
Hopefully done.
Please review.
From f53b141bd2057898f2606e884cf1a094876696c2 Mon Sep 17 00:00:00 2001
From: Yuval Langer <yuvallangeronther...@proton.me>
Date: Fri, 25 Nov 2022 16:40:50 +0200
Subject: [PATCH] lisp/org.el: Mention how to widen in docstrings of commands
that do narrowing
lisp/org.el: (org-narrow-to-subtree, org-toggle-narrow-to-subtree,
org-narrow-to-block, org-narrow-to-element) Mention how to widen in
docstrings of commands that do narrowing.
TINYCHANGE
---
lisp/org.el | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index 472e87b9b..2a1024c89 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