|
@@ -1106,7 +1106,7 @@ to be CLOCKED OUT."))))
|
|
|
60))
|
|
|
(keep
|
|
|
(or (and (memq ch '(?k ?K))
|
|
|
- (read-number "Keep how many minutes? " default))
|
|
|
+ (read-number "Keep how many minutes: " default))
|
|
|
(and (memq ch '(?t ?T))
|
|
|
(floor
|
|
|
(/ (float-time
|
|
@@ -1114,7 +1114,7 @@ to be CLOCKED OUT."))))
|
|
|
60)))))
|
|
|
(gotback
|
|
|
(and (memq ch '(?g ?G))
|
|
|
- (read-number "Got back how many minutes ago? " default)))
|
|
|
+ (read-number "Got back how many minutes ago: " default)))
|
|
|
(subtractp (memq ch '(?s ?S)))
|
|
|
(barely-started-p (org-time-less-p
|
|
|
(org-time-subtract last-valid (cdr clock))
|