Explorar el Código

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 hace 11 años
padre
commit
c9ecc225ac
Se han modificado 1 ficheros con 5 adiciones y 3 borrados
  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)