Browse Source

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.
Bastien Guerry 11 years ago
parent
commit
c9ecc225ac
1 changed files with 5 additions and 3 deletions
  1. 5 3
      lisp/org-clock.el

+ 5 - 3
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)))
       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)
-		     " (%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)
 (defvar org-clock-overlays nil)
 (make-variable-buffer-local 'org-clock-overlays)
 (make-variable-buffer-local 'org-clock-overlays)