forked from mirrors/org-mode
Make `org-show-children' interactive
* lisp/org.el (org-show-children): Make it a command. Reported-by: Tokuya Kameshima <kametoku@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/101347>
This commit is contained in:
parent
85035e4ce2
commit
e553ef2248
|
@ -24917,8 +24917,10 @@ modified."
|
||||||
|
|
||||||
(defun org-show-children (&optional level)
|
(defun org-show-children (&optional level)
|
||||||
"Show all direct subheadings of this heading.
|
"Show all direct subheadings of this heading.
|
||||||
Prefix arg LEVEL is how many levels below the current level should be shown.
|
Prefix arg LEVEL is how many levels below the current level
|
||||||
Default is enough to cause the following heading to appear."
|
should be shown. Default is enough to cause the following
|
||||||
|
heading to appear."
|
||||||
|
(interactive "p")
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(org-back-to-heading t)
|
(org-back-to-heading t)
|
||||||
(let* ((current-level (funcall outline-level))
|
(let* ((current-level (funcall outline-level))
|
||||||
|
|
Loading…
Reference in a new issue