# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1036625244 0
# Node ID 9b71fc12ed855755bcd0d00d8e8925ab849dd509
# Parent  d9f249163ae0fc4977d121db751b7d28ea0a1798
(quoted-insert): Bind keyboard-translate-table around
read-char.

diff -r d9f249163ae0 -r 9b71fc12ed85 lisp/simple.el
--- a/lisp/simple.el	Wed Nov 06 20:30:45 2002 +0000
+++ b/lisp/simple.el	Wed Nov 06 23:27:24 2002 +0000
@@ -318,10 +318,11 @@
 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.