org.el: Warn the user when buffer is (un)narrowed to subtree

* lisp/org.el (org-toggle-narrow-to-subtree): Warn the user when
buffer is (un)narrowed to subtree.
This commit is contained in:
Bastien 2019-12-05 16:51:25 +01:00
parent 5d932fe045
commit 0ff2867aa1
1 changed files with 3 additions and 2 deletions

View File

@ -7780,8 +7780,9 @@ If yes, remember the marker and the distance to BEG."
"Narrow to the subtree at point or widen a narrowed buffer."
(interactive)
(if (buffer-narrowed-p)
(widen)
(org-narrow-to-subtree)))
(progn (widen) (message "Buffer widen"))
(org-narrow-to-subtree)
(message "Buffer narrowed to current subtree")))
(defun org-narrow-to-block ()
"Narrow buffer to the current block."