From 940fe4866f86267572c6f9ce894dda3f69236998 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 6 Nov 2002 23:27:24 +0000 Subject: [PATCH] (quoted-insert): Bind keyboard-translate-table around read-char. --- lisp/simple.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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. -- 2.39.2