diff options
author | Bastien Guerry <bzg@altern.org> | 2014-05-27 09:45:54 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-05-27 09:45:54 +0200 |
commit | c9ecc225acaef812bf142f1bc4f2f5164aa5b93b (patch) | |
tree | 1505b48ffaa280afcbe0145b091a2e79b6e2d176 | |
parent | 0e303ab5774d6846f5b6a6623bd614d2f4d4ab97 (diff) | |
download | org-mode-c9ecc225acaef812bf142f1bc4f2f5164aa5b93b.tar.gz |
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.
-rw-r--r-- | lisp/org-clock.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 5401444..8341f81 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -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) |