[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el |
Date: |
Tue, 08 Mar 2005 19:35:00 -0500 |
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)
- [Emacs-diffs] Changes to emacs/lisp/textmodes/ispell.el,
Kenichi Handa <=