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

org.el (org-shifttab): Show the correct number of empty headlines 

* org.el (org-shifttab): Show the correct number of empty
headlines when called with a numeric prefix argument.  Enhance
docstring.

Thanks to Michael Crouch for reporting this bug and providing the fix.
This commit is contained in:
Bastien Guerry 2013-04-15 18:32:30 +02:00
parent f6d7230ca2
commit 5e3964d5b4
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org.el
View File

@ -19539,9 +19539,9 @@ See `org-ctrl-c-ctrl-c-hook' for more information.")
(defun org-shifttab (&optional arg) (defun org-shifttab (&optional arg)
"Global visibility cycling or move to previous table field. "Global visibility cycling or move to previous table field.
Calls `org-cycle' with argument t, or `org-table-previous-field', depending Call `org-table-previous-field' within a table.
on context. When ARG is nil, cycle globally through visibility states.
See the individual commands for more information." When ARG is a numeric prefix, show contents of this level."
(interactive "P") (interactive "P")
(cond (cond
((org-at-table-p) (call-interactively 'org-table-previous-field)) ((org-at-table-p) (call-interactively 'org-table-previous-field))
@ -19549,6 +19549,7 @@ See the individual commands for more information."
(let ((arg2 (if org-odd-levels-only (1- (* 2 arg)) arg))) (let ((arg2 (if org-odd-levels-only (1- (* 2 arg)) arg)))
(message "Content view to level: %d" arg) (message "Content view to level: %d" arg)
(org-content (prefix-numeric-value arg2)) (org-content (prefix-numeric-value arg2))
(org-cycle-show-empty-lines t)
(setq org-cycle-global-status 'overview))) (setq org-cycle-global-status 'overview)))
(t (call-interactively 'org-global-cycle)))) (t (call-interactively 'org-global-cycle))))