Преглед изворни кода

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 пре 12 година
родитељ
комит
c9ecc225ac
1 измењених фајлова са 5 додато и 3 уклоњено
  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)