Mercurial > emacs
changeset 94365:247f69050a59
(ispell-insert-word): Remove, and replace with insert, now that
translation-table-for-input not needed.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 26 Apr 2008 02:41:13 +0000 |
| parents | 4e228cda1c03 |
| children | 4a0361c406b4 |
| files | lisp/textmodes/ispell.el |
| diffstat | 1 files changed, 3 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/ispell.el Sat Apr 26 02:39:56 2008 +0000 +++ b/lisp/textmodes/ispell.el Sat Apr 26 02:41:13 2008 +0000 @@ -1528,16 +1528,6 @@ (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. @@ -1647,7 +1637,7 @@ ;; Insert first and then delete, ;; to avoid collapsing markers before and after ;; into a single place. - (ispell-insert-word new-word) + (insert new-word) (delete-region (point) end) ;; It is meaningless to preserve the cursor position ;; inside a word that has changed. @@ -3078,7 +3068,7 @@ (delete-region (point) (+ word-len (point))) (if (not (listp replace)) (progn - (ispell-insert-word replace) ; insert dictionary word + (insert replace) ; insert dictionary word (ispell-send-replacement (car poss) replace) (setq accept-list (cons replace accept-list))) (let ((replace-word (car replace))) @@ -3248,7 +3238,7 @@ (setq word (if (atom replacement) replacement (car replacement)) cursor-location (+ (- (length word) (- end start)) cursor-location)) - (ispell-insert-word word) + (insert word) (if (not (atom replacement)) ; recheck spelling of replacement. (progn (goto-char cursor-location)