Mercurial > emacs
changeset 94382:d97dbf46a59a
(ispell-insert-word): Revert previous change.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 26 Apr 2008 20:14:12 +0000 |
| parents | 0a65cf8b9e03 |
| children | 31c4940bd601 |
| files | lisp/textmodes/ispell.el |
| diffstat | 1 files changed, 13 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)