Commit 580fe9f5 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(ispell-insert-word): Use `with-no-warnings' around forms that refer

to translation-table-for-input.
parent 8b54387b
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment