# HG changeset patch # User Glenn Morris # Date 1209240852 0 # Node ID d97dbf46a59adc5b59654c8c6161c5dc166d0982 # Parent 0a65cf8b9e034b0fda3eb5750100eb343b12cbef (ispell-insert-word): Revert previous change. diff -r 0a65cf8b9e03 -r d97dbf46a59a lisp/textmodes/ispell.el --- a/lisp/textmodes/ispell.el Sat Apr 26 20:13:00 2008 +0000 +++ b/lisp/textmodes/ispell.el Sat Apr 26 20:14:12 2008 +0000 @@ -1528,6 +1528,16 @@ (delete-region start (point))) (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 region) "Check spelling of word under or before the cursor. @@ -1637,7 +1647,7 @@ ;; Insert first and then delete, ;; to avoid collapsing markers before and after ;; into a single place. - (insert new-word) + (ispell-insert-word new-word) (delete-region (point) end) ;; It is meaningless to preserve the cursor position ;; inside a word that has changed. @@ -3068,7 +3078,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))) @@ -3238,7 +3248,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)