Mercurial > emacs
comparison lisp/simple.el @ 48234:1ae575cd625c
(quoted-insert): Bind translation-table-for-input, not
keyboard-translate-table.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sat, 09 Nov 2002 12:56:04 +0000 |
| parents | 9b71fc12ed85 |
| children | e670dd0e8087 |
comparison
equal
deleted
inserted
replaced
| 48233:1f9dc6bd11d3 | 48234:1ae575cd625c |
|---|---|
| 316 | 316 |
| 317 In binary overwrite mode, this function does overwrite, and octal | 317 In binary overwrite mode, this function does overwrite, and octal |
| 318 digits are interpreted as a character code. This is intended to be | 318 digits are interpreted as a character code. This is intended to be |
| 319 useful for editing binary files." | 319 useful for editing binary files." |
| 320 (interactive "*p") | 320 (interactive "*p") |
| 321 (let* ((char (let (keyboard-translate-table) | 321 (let* ((char (let (translation-table-for-input) |
| 322 (if (or (not overwrite-mode) | 322 (if (or (not overwrite-mode) |
| 323 (eq overwrite-mode 'overwrite-mode-binary)) | 323 (eq overwrite-mode 'overwrite-mode-binary)) |
| 324 (read-quoted-char) | 324 (read-quoted-char) |
| 325 (read-char))))) | 325 (read-char))))) |
| 326 ;; Assume character codes 0240 - 0377 stand for characters in some | 326 ;; Assume character codes 0240 - 0377 stand for characters in some |