Mercurial > emacs
changeset 94358:f1e8d30ecf61
(quoted-insert, zap-to-char): Remove uses of obsolete
`translation-table-for-input'.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 26 Apr 2008 02:34:49 +0000 |
| parents | 5f0e2d26daed |
| children | 9f981901ae0c |
| files | lisp/simple.el |
| diffstat | 1 files changed, 4 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sat Apr 26 02:33:47 2008 +0000 +++ b/lisp/simple.el Sat Apr 26 02:34:49 2008 +0000 @@ -665,11 +665,10 @@ digits are interpreted as a character code. This is intended to be useful for editing binary files." (interactive "*p") - (let* ((char (let (translation-table-for-input input-method-function) - (if (or (not overwrite-mode) - (eq overwrite-mode 'overwrite-mode-binary)) - (read-quoted-char) - (read-char))))) + (let* ((char (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. @@ -3101,8 +3100,6 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer. Goes backward if ARG is negative; error if CHAR not found." (interactive "p\ncZap to char: ") - (if (char-table-p translation-table-for-input) - (setq char (or (aref translation-table-for-input char) char))) (kill-region (point) (progn (search-forward (char-to-string char) nil nil arg) ; (goto-char (if (> arg 0) (1- (point)) (1+ (point))))