# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1110328500 0
# Node ID 32fd455148933cacf9878dc1bb05b8491c737c89
# Parent  4358de407410b73ef5382b0b202f5b581e1de11e
(ispell-insert-word): New function.
(ispell-word): Use ispell-insert-word to isnert a new word.
(ispell-process-line): Likewise
(ispell-complete-word): Likewise.

diff -r 4358de407410 -r 32fd45514893 lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Wed Mar 09 00:29:14 2005 +0000
+++ b/lisp/textmodes/ispell.el	Wed Mar 09 00:35:00 2005 +0000
@@ -1406,6 +1406,14 @@
 			  (setq more-lines (= 0 (forward-line))))))))))))))
 
 
+;; Insert WORD while translating Latin characters to the equivalent
+;; characters that is supported by buffer-file-coding-system.
+
+(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))))
 
 ;;;###autoload
 (defun ispell-word (&optional following quietly continue)
@@ -1504,7 +1512,7 @@
 			  (progn
 			    (delete-region start end)
 			    (setq start (point))
-			    (insert new-word)
+			    (ispell-insert-word new-word)
 			    (setq end (point))))
 		      (if (not (atom replace)) ;recheck spelling of replacement
 			  (progn
@@ -2883,7 +2891,7 @@
 	      (delete-region (point) (+ word-len (point)))
 	      (if (not (listp replace))
 		  (progn
-		    (insert replace)	; insert dictionary word
+		    (ispell-insert-word replace) ; insert dictionary word
 		    (ispell-send-replacement (car poss) replace)
 		    (setq accept-list (cons replace accept-list)))
 		(let ((replace-word (car replace)))
@@ -3052,7 +3060,7 @@
 	     (setq word (if (atom replacement) replacement (car replacement))
 		   cursor-location (+ (- (length word) (- end start))
 				      cursor-location))
-	     (insert word)
+	     (ispell-insert-word word)
 	     (if (not (atom replacement)) ; recheck spelling of replacement.
 		 (progn
 		   (goto-char cursor-location)