Mercurial > emacs
changeset 102028:a141297219f8
(ispell-insert-word): Use `with-no-warnings' around forms that refer
to translation-table-for-input.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 14 Feb 2009 09:03:19 +0000 |
| parents | 7c70a940a53d |
| children | 3223937a77f8 |
| files | lisp/textmodes/ispell.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)