From: Dave Love <fx@gnu.org>
Date: Wed, 6 Nov 2002 23:27:24 +0000 (+0000)
Subject: (quoted-insert): Bind keyboard-translate-table around
X-Git-Tag: ttn-vms-21-2-B4~12573
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=940fe4866f86267572c6f9ce894dda3f69236998;p=emacs.git

(quoted-insert): Bind keyboard-translate-table around
read-char.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 47f43dea1c3..12abbe82bc1 100644
--- 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.