mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 20:37:51 +00:00
org: Improve consistency for org-ctrl-c-tab and children folding
* lisp/org.el (org-ctrl-c-tab): Don't move point when acting on outline level 0 (which is before first heading). This is consistent to the behavior for level > 0. And refactor some. And correct the docstring.
This commit is contained in:
parent
8b92bcd827
commit
ab864a29be
22
lisp/org.el
22
lisp/org.el
|
@ -17802,17 +17802,19 @@ When inserting a newline, indent the new line if
|
|||
(defun org-ctrl-c-tab (&optional arg)
|
||||
"Toggle columns width in a table, or show children.
|
||||
Call `org-table-toggle-column-width' if point is in a table.
|
||||
Otherwise, call `org-show-children'. ARG is the level to hide."
|
||||
Otherwise provide a compact view of the children. ARG is the
|
||||
level to hide."
|
||||
(interactive "p")
|
||||
(if (org-at-table-p)
|
||||
(call-interactively #'org-table-toggle-column-width)
|
||||
(if (org-before-first-heading-p)
|
||||
(progn
|
||||
(org-flag-above-first-heading)
|
||||
(outline-hide-sublevels (or arg 1))
|
||||
(goto-char (point-min)))
|
||||
(outline-hide-subtree)
|
||||
(org-show-children arg))))
|
||||
(cond
|
||||
((org-at-table-p)
|
||||
(call-interactively #'org-table-toggle-column-width))
|
||||
((org-before-first-heading-p)
|
||||
(save-excursion
|
||||
(org-flag-above-first-heading)
|
||||
(outline-hide-sublevels (or arg 1))))
|
||||
(t
|
||||
(outline-hide-subtree)
|
||||
(org-show-children arg))))
|
||||
|
||||
(defun org-ctrl-c-star ()
|
||||
"Compute table, or change heading status of lines.
|
||||
|
|
Loading…
Reference in a new issue