ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make feature "show children" applicable to whole file 

* lisp/org.el (org-ctrl-c-tab): Make function applicable to a whole
  file.  Further flag (aka hide) all content in the subtrees.
This commit is contained in:
Marco Wahl 2019-07-11 12:21:12 +02:00
parent fd63eee797
commit d2a5a6e4d0
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/org.el
View File

@ -18070,14 +18070,20 @@ context. See the individual commands for more information."
(interactive) (interactive)
(org-return t)) (org-return t))
(defun org-ctrl-c-tab (&optional _arg) (defun org-ctrl-c-tab (&optional arg)
"Toggle columns width in a table, or show children. "Toggle columns width in a table, or show children.
Call `org-table-toggle-column-width' if point is in a table. Call `org-table-toggle-column-width' if point is in a table.
Otherwise, call `org-show-children'." Otherwise, call `org-show-children'. ARG is the level to hide."
(interactive "p") (interactive "p")
(call-interactively (if (org-at-table-p)
(if (org-at-table-p) #'org-table-toggle-column-width (call-interactively #'org-table-toggle-column-width)
#'org-show-children))) (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))))
(defun org-ctrl-c-star () (defun org-ctrl-c-star ()
"Compute table, or change heading status of lines. "Compute table, or change heading status of lines.