procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ispell-insert-word): New function.

Browse source 
(ispell-word): Use ispell-insert-word to isnert a new word.
(ispell-process-line): Likewise
(ispell-complete-word): Likewise.
This commit is contained in:
Kenichi Handa 2005-03-09 00:36:22 +00:00
parent 91199264e3
commit ca8d88cd7d
2 changed files with 18 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2005-03-09 Kenichi Handa <handa@m17n.org>
* textmodes/ispell.el (ispell-insert-word): New function.
(ispell-word): Use ispell-insert-word to isnert a new word.
(ispell-process-line): Likewise
(ispell-complete-word): Likewise.
2005-03-09 Glenn Morris <gmorris@ast.cam.ac.uk> 2005-03-09 Glenn Morris <gmorris@ast.cam.ac.uk>
* calendar/calendar.el (redraw-calendar): Preserve point. * calendar/calendar.el (redraw-calendar): Preserve point.

14
lisp/textmodes/ispell.el
View file

@ -1406,6 +1406,14 @@ This allows it to improve the suggestion list based on actual mispellings."
(setq more-lines (= 0 (forward-line)))))))))))))) (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 ;;;###autoload
(defun ispell-word (&optional following quietly continue) (defun ispell-word (&optional following quietly continue)
@ -1504,7 +1512,7 @@ quit spell session exited."
(progn (progn
(delete-region start end) (delete-region start end)
(setq start (point)) (setq start (point))
(insert new-word) (ispell-insert-word new-word)
(setq end (point)))) (setq end (point))))
(if (not (atom replace)) ;recheck spelling of replacement (if (not (atom replace)) ;recheck spelling of replacement
(progn (progn
@ -2883,7 +2891,7 @@ Returns the sum shift due to changes in word replacements."
(delete-region (point) (+ word-len (point))) (delete-region (point) (+ word-len (point)))
(if (not (listp replace)) (if (not (listp replace))
(progn (progn
(insert replace) ; insert dictionary word (ispell-insert-word replace) ; insert dictionary word
(ispell-send-replacement (car poss) replace) (ispell-send-replacement (car poss) replace)
(setq accept-list (cons replace accept-list))) (setq accept-list (cons replace accept-list)))
(let ((replace-word (car replace))) (let ((replace-word (car replace)))
@ -3052,7 +3060,7 @@ Standard ispell choices are then available."
(setq word (if (atom replacement) replacement (car replacement)) (setq word (if (atom replacement) replacement (car replacement))
cursor-location (+ (- (length word) (- end start)) cursor-location (+ (- (length word) (- end start))
cursor-location)) cursor-location))
(insert word) (ispell-insert-word word)
(if (not (atom replacement)) ; recheck spelling of replacement. (if (not (atom replacement)) ; recheck spelling of replacement.
(progn (progn
(goto-char cursor-location) (goto-char cursor-location)