# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1234602199 0
# Node ID a141297219f871dd23066446cd33ebe1433016e1
# Parent  7c70a940a53d2b565ac1113ef76df9e9c1f4f3b6
(ispell-insert-word): Use `with-no-warnings' around forms that refer
to translation-table-for-input.

diff -r 7c70a940a53d -r a141297219f8 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Sat Feb 14 05:17:25 2009 +0000
+++ b/lisp/textmodes/ispell.el	Sat Feb 14 09:03:19 2009 +0000
@@ -1599,14 +1599,15 @@
 			  (setq more-lines (= 0 (forward-line))))))))))))))
 
 
-;; Insert WORD while translating Latin characters to the equivalent
-;; characters that is supported by buffer-file-coding-system.
-
+;; Insert WORD while possibly translating characters by
+;; translation-table-for-input.
 (defun ispell-insert-word (word)
   (let ((pos (point)))
     (insert word)
-    (if (char-table-p translation-table-for-input)
-	(translate-region pos (point) translation-table-for-input))))
+    ;; Avoid "obsolete" warnings for translation-table-for-input.
+    (with-no-warnings
+      (if (char-table-p translation-table-for-input)
+	  (translate-region pos (point) translation-table-for-input)))))
 
 ;;;###autoload
 (defun ispell-word (&optional following quietly continue region)