Mercurial > emacs
comparison lisp/textmodes/ispell.el @ 90044:cb7f41387eb3
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-70
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-669
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-678
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-679
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-680
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-688
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-689
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-690
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-691
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-69
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-70
- miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-71
Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 12 Nov 2004 02:53:04 +0000 |
parents | f3ec05478165 d4af4d8d512b |
children | f2ebccfa87d4 |
comparison
equal
deleted
inserted
replaced
90043:e24e2e78deda | 90044:cb7f41387eb3 |
---|---|
1408 0 word is inserted into buffer-local definitions. | 1408 0 word is inserted into buffer-local definitions. |
1409 \"word\" word corrected from word list. | 1409 \"word\" word corrected from word list. |
1410 \(\"word\" arg\) word is hand entered. | 1410 \(\"word\" arg\) word is hand entered. |
1411 quit spell session exited." | 1411 quit spell session exited." |
1412 | 1412 |
1413 (interactive (list nil nil current-prefix-arg)) | 1413 (interactive (list ispell-following-word ispell-quietly current-prefix-arg)) |
1414 (if continue | 1414 (if continue |
1415 (ispell-continue) | 1415 (ispell-continue) |
1416 (if (interactive-p) | |
1417 (setq following ispell-following-word | |
1418 quietly ispell-quietly)) | |
1419 (ispell-accept-buffer-local-defs) ; use the correct dictionary | 1416 (ispell-accept-buffer-local-defs) ; use the correct dictionary |
1420 (let ((cursor-location (point)) ; retain cursor location | 1417 (let ((cursor-location (point)) ; retain cursor location |
1421 (word (ispell-get-word following)) | 1418 (word (ispell-get-word following)) |
1422 start end poss new-word replace) | 1419 start end poss new-word replace) |
1423 ;; De-structure return word info list. | 1420 ;; De-structure return word info list. |