From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 14 Feb 2009 09:06:30 +0000 (+0000)
Subject: (quoted-insert, zap-to-char): Use `with-no-warnings' around forms that refer
X-Git-Tag: emacs-pretest-23.0.91~215
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a6c39c14a291fe76be797a920326410e591152ae;p=emacs.git

(quoted-insert, zap-to-char): Use `with-no-warnings' around forms that refer
to translation-table-for-input.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index cb2459a7348..4b60bcd40b5 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -689,11 +689,14 @@ 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
+	  ;; Avoid "obsolete" warnings for translation-table-for-input.
+	  (with-no-warnings
+	    (let (translation-table-for-input input-method-function)
+	      (if (or (not overwrite-mode)
+		      (eq overwrite-mode 'overwrite-mode-binary))
+		  (read-quoted-char)
+		(read-char))))))
     ;; This used to assume character codes 0240 - 0377 stand for
     ;; characters in some single-byte character set, and converted them
     ;; to Emacs characters.  But in 23.1 this feature is deprecated
@@ -3147,8 +3150,10 @@ 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)))
+  ;; Avoid "obsolete" warnings for translation-table-for-input.
+  (with-no-warnings
+    (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))))