From 0078523a768f215d8053905f66266cb1d083a7cf Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Rom=C3=A9o=20La=20Spina?= Date: Mon, 21 Mar 2022 20:00:43 +0100 Subject: [PATCH] lisp/org-clock.el: Fix bug in prompt for resolving clocks * 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'. TINYCHANGE --- lisp/org-clock.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 6f441c18e..f7d25599c 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1099,9 +1099,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)) -- 2.35.1