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

[Kenichi Handa]

Index: emacs/lisp/textmodes/ispell.el
diff -c emacs/lisp/textmodes/ispell.el:1.158 
emacs/lisp/textmodes/ispell.el:1.159
*** emacs/lisp/textmodes/ispell.el:1.158        Sun Feb 27 10:37:13 2005
--- emacs/lisp/textmodes/ispell.el      Wed Mar  9 00:35:00 2005
***************
*** 1406,1411 ****
--- 1406,1419 ----
                          (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,1510 ****
                          (progn
                            (delete-region start end)
                            (setq start (point))
!                           (insert new-word)
                            (setq end (point))))
                      (if (not (atom replace)) ;recheck spelling of replacement
                          (progn
--- 1512,1518 ----
                          (progn
                            (delete-region start end)
                            (setq start (point))
!                           (ispell-insert-word new-word)
                            (setq end (point))))
                      (if (not (atom replace)) ;recheck spelling of replacement
                          (progn
***************
*** 2883,2889 ****
              (delete-region (point) (+ word-len (point)))
              (if (not (listp replace))
                  (progn
!                   (insert replace)    ; insert dictionary word
                    (ispell-send-replacement (car poss) replace)
                    (setq accept-list (cons replace accept-list)))
                (let ((replace-word (car replace)))
--- 2891,2897 ----
              (delete-region (point) (+ word-len (point)))
              (if (not (listp replace))
                  (progn
!                   (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,3058 ****
             (setq word (if (atom replacement) replacement (car replacement))
                   cursor-location (+ (- (length word) (- end start))
                                      cursor-location))
!            (insert word)
             (if (not (atom replacement)) ; recheck spelling of replacement.
                 (progn
                   (goto-char cursor-location)
--- 3060,3066 ----
             (setq word (if (atom replacement) replacement (car replacement))
                   cursor-location (+ (- (length word) (- end start))
                                      cursor-location))
!            (ispell-insert-word word)
             (if (not (atom replacement)) ; recheck spelling of replacement.
                 (progn
                   (goto-char cursor-location)