Mercurial > emacs

changeset 48180:9b71fc12ed85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quoted-insert): Bind keyboard-translate-table around read-char.
author Dave Love <fx@gnu.org>
date Wed, 06 Nov 2002 23:27:24 +0000
parents d9f249163ae0
children 4b996fe3a71f
files lisp/simple.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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.