* lisp/calc/calc.el (calc-read-key-sequence): Let-bind `input-method-function' to...

Fixes: debbugs:10018

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 386118b..9293a66 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-11-21  Juri Linkov  <juri@jurta.org>
+
+       * calc/calc.el (calc-read-key-sequence): Let-bind `input-method-function'
+       to nil.  (Bug#10018)
+
 2011-11-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * emacs-lisp/cl-indent.el (common-lisp-loop-part-indentation):

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 60a84bd..626d246 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1235,7 +1235,8 @@ Used by `calc-user-invocation'.")
        (glob (current-global-map))
        (loc (current-local-map)))
     (or (input-pending-p) (message "%s" prompt))
-    (let ((key (calc-read-key t)))
+    (let ((key (calc-read-key t))
+         (input-method-function nil))
       (calc-unread-command (cdr key))
       (unwind-protect
          (progn