diff options
author | Dave Love <[email protected]> | 2002-11-06 23:27:24 +0000 |
---|---|---|
committer | Dave Love <[email protected]> | 2002-11-06 23:27:24 +0000 |
commit | 940fe4866f86267572c6f9ce894dda3f69236998 (patch) | |
tree | 5f3a5d39b72771c59d5c64a3778e0cd08830b402 /lisp/simple.el | |
parent | b8b60362dba5e1a9ba9d6420899841cdfee8f3c5 (diff) |
(quoted-insert): Bind keyboard-translate-table around
read-char.
Diffstat (limited to 'lisp/simple.el')
-rw-r--r-- | lisp/simple.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 47f43dea1c..12abbe82bc 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. |