From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 14 Feb 2009 09:03:19 +0000 (+0000)
Subject: (ispell-insert-word): Use `with-no-warnings' around forms that refer
X-Git-Tag: emacs-pretest-23.0.91~218
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=580fe9f55c7ee5fe5b50340a3a11cb7356b1f8b9;p=emacs.git

(ispell-insert-word): Use `with-no-warnings' around forms that refer
to translation-table-for-input.
---

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 21ae997bb52..d567ff485d3 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1599,14 +1599,15 @@ This allows it to improve the suggestion list based on actual misspellings."
 			  (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)