[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/textmodes flyspell.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp/textmodes flyspell.el |
Date: |
Sat, 17 Oct 2009 03:09:54 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/10/17 03:09:54
Modified files:
lisp/textmodes : flyspell.el
Log message:
Jari Aalto <jari.aalto at cante.net>
(flyspell-get-word): Make `following' argument optional, since that is
how it is documented, and this is often called with a nil argument.
(Bug#4577)
(flyspell-external-point-words, flyspell-auto-correct-word)
(flyspell-correct-word-before-point, flyspell-word-search-forward)
(flyspell-word-search-backward): Remove nil argument in calls to
flyspell-get-word, since it is not needed now.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/flyspell.el?cvsroot=emacs&r1=1.148&r2=1.149
Patches:
Index: flyspell.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/flyspell.el,v
retrieving revision 1.148
retrieving revision 1.149
diff -u -b -r1.148 -r1.149
--- flyspell.el 2 Oct 2009 03:48:46 -0000 1.148
+++ flyspell.el 17 Oct 2009 03:09:53 -0000 1.149
@@ -986,7 +986,7 @@
(inhibit-point-motion-hooks t)
p)
(while (and (not r) (setq p (search-backward word bound t)))
- (let ((lw (flyspell-get-word '())))
+ (let ((lw (flyspell-get-word)))
(if (and (consp lw) (string-equal (car lw) word))
(setq r p)
(goto-char p))))
@@ -1001,7 +1001,7 @@
(inhibit-point-motion-hooks t)
p)
(while (and (not r) (setq p (search-forward word bound t)))
- (let ((lw (flyspell-get-word '())))
+ (let ((lw (flyspell-get-word)))
(if (and (consp lw) (string-equal (car lw) word))
(setq r p)
(goto-char (1+ p)))))
@@ -1250,7 +1250,7 @@
;;*---------------------------------------------------------------------*/
;;* flyspell-get-word ... */
;;*---------------------------------------------------------------------*/
-(defun flyspell-get-word (following &optional extra-otherchars)
+(defun flyspell-get-word (&optional following extra-otherchars)
"Return the word for spell-checking according to Ispell syntax.
If optional argument FOLLOWING is non-nil or if `flyspell-following-word'
is non-nil when called interactively, then the following word
@@ -1394,7 +1394,7 @@
;; Move back into the match
;; so flyspell-get-word will find it.
(forward-char -1)
- (flyspell-get-word nil)))
+ (flyspell-get-word)))
(found (car found-list))
(found-length (length found))
(misspell-length (length word)))
@@ -1887,7 +1887,7 @@
(flyspell-ajust-cursor-point pos (point) old-max)
(setq flyspell-auto-correct-pos (point)))
;; fetch the word to be checked
- (let ((word (flyspell-get-word nil)))
+ (let ((word (flyspell-get-word)))
(if (consp word)
(let ((start (car (cdr word)))
(end (car (cdr (cdr word))))
@@ -2049,7 +2049,7 @@
(flyspell-accept-buffer-local-defs)
(or opoint (setq opoint (point)))
(let ((cursor-location (point))
- (word (flyspell-get-word nil)))
+ (word (flyspell-get-word)))
(if (consp word)
(let ((start (car (cdr word)))
(end (car (cdr (cdr word))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp/textmodes flyspell.el,
Glenn Morris <=