[Emacs-diffs] emacs/lisp/textmodes ispell.el

[Eli Zaretskii]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Eli Zaretskii <eliz>    09/02/14 09:03:20

Modified files:
        lisp/textmodes : ispell.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/ispell.el?cvsroot=emacs&r1=1.245&r2=1.246

Patches:
Index: ispell.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/textmodes/ispell.el,v
retrieving revision 1.245
retrieving revision 1.246
diff -u -b -r1.245 -r1.246
--- ispell.el   20 Jan 2009 11:34:43 -0000      1.245
+++ ispell.el   14 Feb 2009 09:03:19 -0000      1.246
@@ -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)
+    ;; 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))))
+         (translate-region pos (point) translation-table-for-input)))))
 
 ;;;###autoload
 (defun ispell-word (&optional following quietly continue region)