# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1209177289 0
# Node ID f1e8d30ecf613b2851c697e35c24b230b081caff
# Parent  5f0e2d26daed93ecaa896294bdf3bfd035c213d0
(quoted-insert, zap-to-char): Remove uses of obsolete
`translation-table-for-input'.

diff -r 5f0e2d26daed -r f1e8d30ecf61 lisp/simple.el
--- 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))))