(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 21ae997bb52f30fb82241984973aee3032bd021a..d567ff485d3253d08bf947b52d49ce6bd38f5e88 100644 (file)
--- 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)