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)))
;;;###autoload
(defun org-clock-display (arg)
(defun org-clock-display (&optional arg)
"Show subtree times in the entire buffer.
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")
(customp " (custom)")
(t "")))
(org-minutes-to-clocksum-string org-clock-file-total-minutes)
" (%d hours and %d minutes)") h m)))
(org-minutes-to-clocksum-string
org-clock-file-total-minutes)
" (%d hours and %d minutes)")
h m)))
(defvar org-clock-overlays nil)
(make-variable-buffer-local 'org-clock-overlays)