ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lisp/org-clock.el: Fix `read-number' prompt 

* lisp/org-clock.el (org-clock-resolve): Fix `read-number' prompt.
This commit is contained in:
Bastien 2022-05-22 22:01:19 +02:00
parent ef41f385fb
commit 4aaa2683b6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-clock.el
View File

@ -1106,7 +1106,7 @@ to be CLOCKED OUT."))))
60)) 60))
(keep (keep
(or (and (memq ch '(?k ?K)) (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)) (and (memq ch '(?t ?T))
(floor (floor
(/ (float-time (/ (float-time
@ -1114,7 +1114,7 @@ to be CLOCKED OUT."))))
60))))) 60)))))
(gotback (gotback
(and (memq ch '(?g ?G)) (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))) (subtractp (memq ch '(?s ?S)))
(barely-started-p (org-time-less-p (barely-started-p (org-time-less-p
(org-time-subtract last-valid (cdr clock)) (org-time-subtract last-valid (cdr clock))