Skip to content

Commit

Permalink
lisp/org-clock.el: Fix bug in prompt for resolving clocks
Browse files Browse the repository at this point in the history
* lisp/org-clock.el (org-clock-resolve):
Avoid unwanted disappearing of the prompt when clicking somewhere, by
using `read-char-exclusive' instead of `read-char'.

Link: https://orgmode.org/list/87o82yaeie.fsf@gmail.com

TINYCHANGE
  • Loading branch information
rlaspina authored and yantar92 committed Oct 9, 2022
1 parent 04d9d4b commit de553d1
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions lisp/org-clock.el
Original file line number Diff line number Diff line change
Expand Up @@ -1101,9 +1101,9 @@ to be CLOCKED OUT."))))
?j ?J ?i ?q ?t ?T)))
(or (ding) t)))
(setq char-pressed
(read-char (concat (funcall prompt-fn clock)
" [jkKtTgGSscCiq]? ")
nil 45)))
(read-char-exclusive (concat (funcall prompt-fn clock)
" [jkKtTgGSscCiq]? ")
nil 45)))
(and (not (memq char-pressed '(?i ?q))) char-pressed)))))
(default
(floor (org-time-convert-to-integer (time-since last-valid))
Expand Down

0 comments on commit de553d1

Please sign in to comment.