Просмотр исходного кода

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 лет назад
Родитель
Сommit
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)