tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-clock.el (org-clock-display): Allow non-interactive use by making arg optional 

* org-clock.el (org-clock-display): Allow non-interactive use
by making arg optional.

Thanks to Noah Slater for pointing this.
This commit is contained in:
Bastien Guerry 2014-05-27 09:45:54 +02:00
parent 0e303ab577
commit c9ecc225ac
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-clock.el
View File

@ -1830,7 +1830,7 @@ PROPNAME lets you set a custom text property instead of :org-clock-minutes."
org-clock-file-total-minutes))) org-clock-file-total-minutes)))
;;;###autoload ;;;###autoload
(defun org-clock-display (arg) (defun org-clock-display (&optional arg)
"Show subtree times in the entire buffer. "Show subtree times in the entire buffer.
With one universal prefix argument, show the total time for With one universal prefix argument, show the total time for
@ -1870,8 +1870,10 @@ Use \\[org-clock-remove-overlays] to remove the subtree times."
(cond (todayp " for today") (cond (todayp " for today")
(customp " (custom)") (customp " (custom)")
(t ""))) (t "")))
(org-minutes-to-clocksum-string org-clock-file-total-minutes) (org-minutes-to-clocksum-string
" (%d hours and %d minutes)") h m))) org-clock-file-total-minutes)
" (%d hours and %d minutes)")
h m)))
(defvar org-clock-overlays nil) (defvar org-clock-overlays nil)
(make-variable-buffer-local 'org-clock-overlays) (make-variable-buffer-local 'org-clock-overlays)