Mercurial > emacs

comparison lisp/textmodes/flyspell.el @ 90044:cb7f41387eb3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 f6e978fdd3ed
children b637c617432f
comparison
equal deleted inserted replaced
90043:e24e2e78deda 90044:cb7f41387eb3
954 ;*---------------------------------------------------------------------*/ 954 ;*---------------------------------------------------------------------*/
955 ;* flyspell-word ... */ 955 ;* flyspell-word ... */
956 ;*---------------------------------------------------------------------*/ 956 ;*---------------------------------------------------------------------*/
957 (defun flyspell-word (&optional following) 957 (defun flyspell-word (&optional following)
958 "Spell check a word." 958 "Spell check a word."
959 (interactive (list current-prefix-arg)) 959 (interactive (list ispell-following-word))
960 (if (interactive-p)
961 (setq following ispell-following-word))
962 (save-excursion 960 (save-excursion
963 ;; use the correct dictionary 961 ;; use the correct dictionary
964 (flyspell-accept-buffer-local-defs) 962 (flyspell-accept-buffer-local-defs)
965 (let* ((cursor-location (point)) 963 (let* ((cursor-location (point))
966 (flyspell-word (flyspell-get-word following)) 964 (flyspell-word (flyspell-get-word following))
1281 ;* flyspell-external-point-words ... */ 1279 ;* flyspell-external-point-words ... */
1282 ;*---------------------------------------------------------------------*/ 1280 ;*---------------------------------------------------------------------*/
1283 (defun flyspell-external-point-words () 1281 (defun flyspell-external-point-words ()
1284 (let ((buffer flyspell-external-ispell-buffer)) 1282 (let ((buffer flyspell-external-ispell-buffer))
1285 (set-buffer buffer) 1283 (set-buffer buffer)
1286 (beginning-of-buffer) 1284 (goto-char (point-min))
1287 (let ((size (- flyspell-large-region-end flyspell-large-region-beg)) 1285 (let ((size (- flyspell-large-region-end flyspell-large-region-beg))
1288 (start flyspell-large-region-beg)) 1286 (start flyspell-large-region-beg))
1289 ;; now we are done with ispell, we have to find the word in 1287 ;; now we are done with ispell, we have to find the word in
1290 ;; the initial buffer 1288 ;; the initial buffer
1291 (while (< (point) (- (point-max) 1)) 1289 (while (< (point) (- (point-max) 1))