(quoted-insert): Bind keyboard-translate-table around

read-char.

diff --git a/lisp/simple.el b/lisp/simple.el
index 47f43dea1c3a76f929f64ba9c6f7500563e97c63..12abbe82bc1e6e6dec6a8dc8e098fcb3917d4d8b 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -318,10 +318,11 @@ 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 (if (or (not overwrite-mode)
-                     (eq overwrite-mode 'overwrite-mode-binary))
-                 (read-quoted-char)
-               (read-char))))
+  (let* ((char (let (keyboard-translate-table)
+                (if (or (not overwrite-mode)
+                        (eq overwrite-mode 'overwrite-mode-binary))
+                    (read-quoted-char)
+                  (read-char)))))
     ;; Assume character codes 0240 - 0377 stand for characters in some
     ;; single-byte character set, and convert them to Emacs
     ;; characters.