[nongnu] elpa/org-drill 66d74724d7 090/251: Turn off input method while reading events

[ELPA Syncer]

branch: elpa/org-drill
commit 66d74724d7c9ad95472c046d429eac95382df550
Author: "matus goljer <"matus.goljer@gmail.com">
Commit: "matus goljer <"matus.goljer@gmail.com">

    Turn off input method while reading events
---
 org-drill.el | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/org-drill.el b/org-drill.el
index 7690ac3599..250cb5ff7c 100755
--- a/org-drill.el
+++ b/org-drill.el
@@ -1369,6 +1369,14 @@ of QUALITY."
             intervals))
     (reverse intervals)))
 
+(defun org-drill--read-key-sequence (prompt)
+  "Just like `read-key-sequence' but with input method turned off."
+  (let ((old-input-method current-input-method))
+    (unwind-protect
+        (progn
+          (set-input-method nil)
+          (read-key-sequence prompt))
+      (set-input-method old-input-method))))
 
 (defun org-drill-reschedule ()
   "Returns quality rating (0-5), or nil if the user quit."
@@ -1385,7 +1393,7 @@ of QUALITY."
                                  org-drill--edit-key
                                  7          ; C-g
                                  ?0 ?1 ?2 ?3 ?4 ?5)))
-        (setq input (read-key-sequence
+        (setq input (org-drill--read-key-sequence
                      (if (eq ch org-drill--help-key)
                          (format "0-2 Means you have forgotten the item.
 3-5 Means you have remembered the item.
@@ -1581,7 +1589,7 @@ Consider reformulating the item to make it easier to 
remember.\n"
                              (format-time-string "%M:%S " elapsed))
                            prompt))
           (sit-for 1)))
-      (setq input (read-key-sequence nil))
+      (setq input (org-drill--read-key-sequence nil))
       (if (stringp input) (setq ch (elt input 0)))
       (if (eql ch org-drill--tags-key)
           (org-set-tags-command)))