[elpa] externals/org de553d1dc7 1/2: lisp/org-clock.el: Fix bug in prompt for resolving clocks

[ELPA Syncer]

branch: externals/org
commit de553d1dc7c587d1f3a853543259f8a14464af54
Author: Roméo La Spina <romeo.la-spina@ens-rennes.fr>
Commit: Ihor Radchenko <yantar92@gmail.com>

    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'.
    
    Link: https://orgmode.org/list/87o82yaeie.fsf@gmail.com
    
    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 6a7b569d1a..0546496ac9 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -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))