From b528434a254b4cf99080fcfbbf4dd60ada9343d1 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 26 Apr 2008 02:34:49 +0000 Subject: [PATCH] (quoted-insert, zap-to-char): Remove uses of obsolete `translation-table-for-input'. --- lisp/simple.el | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 4ef352e1cd5..1727f59fe8a 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -665,11 +665,10 @@ 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 (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 @@ and KILLP is t if a prefix arg was specified." 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)))) -- 2.11.4.GIT