(quoted-insert): Let-bind input-method-function to nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88004d84047a69e13b68e8b6fb29122208bdb00d..6f6e4915519a9ce94d4e243b04dd3690cda93962 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2005-11-28  Juri Linkov  <juri@jurta.org>
+
+       * simple.el (quoted-insert): Let-bind input-method-function to nil.
+
+       * replace.el (occur-mode-mouse-goto): Pop, don't switch.
+       (occur-mode-goto-occurrence): Let-bind same-window-buffer-names
+       and same-window-regexps.
+       (occur-next-error): Don't move point for arg 0.
+
 2005-11-28  Chong Yidong  <cyd@stupidchicken.com>
 
        * replace.el (occur-mode-goto-occurrence): Pop, don't switch.

diff --git a/lisp/simple.el b/lisp/simple.el
index f6a6fd6ad9a6e82f8c953ce3c0ed0c0595ff0d54..a37ffcdd3ca6be6204e02674eb058657b15abf11 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -609,7 +609,7 @@ In binary overwrite mode, this function does overwrite, and octal
 digits are interpreted as a character code.  This is intended to be
 useful for editing binary files."
   (interactive "*p")
-  (let* ((char (let (translation-table-for-input)
+  (let* ((char (let (translation-table-for-input input-method-function)
                 (if (or (not overwrite-mode)
                         (eq overwrite-mode 'overwrite-mode-binary))
                     (read-quoted-char)