Subject: bug#4577 closed by Glenn Morris <[email-masked]> (Re: Bug#4577: flyspell.el: (flyspell-get-word): Correct function argment list according to docstring)

From: [email-masked] (Emacs bug Tracking System)
Date: Sat, 17 Oct 2009 03:20:08 +0000

This is an automatic notification regarding your bug report
which was filed against the emacs package:

#4577: [PATCH] Emacs CVS: flyspell.el: (flyspell-get-word): Correct function argment list according to docstring

It has been closed by Glenn Morris <[email-masked]>.

Their explanation is attached below along with your original report.
If this explanation is unsatisfactory and you have not received a
better one in a separate message then please contact Glenn Morris <[email-masked]> by
replying to this email.

-- 
4577: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=4577
Emacs Bug Tracking System
Contact [email-masked] with problems

Subject: Re: Bug#4577: flyspell.el: (flyspell-get-word): Correct function argment list according to docstring
From: Glenn Morris <[email-masked]>
To: [email-masked]
Date: Fri, 16 Oct 2009 23:10:33 -0400

Thanks; applied (with paren typo corrected).

Subject: [PATCH] Emacs CVS: flyspell.el: (flyspell-get-word): Correct function argment list according to docstring
From: Jari Aalto <[email-masked]>
To: [email-masked]
Date: Mon, 28 Sep 2009 14:20:55 +0300

Tags: patch

The documentation of flyspell-get-word reads that there are no required
parameters. All are optional. The patch updates to code according to
docstring.

2009-09-28  Jari Aalto  <[email-masked]>

        * textmodes/flyspell.el (flyspell-get-word): Correct function argment
        list according to docstring. Parameter `following' is optional
        (flyspell-external-point-words): Remove `nil' argument from call
        to `flyspell-get-word'.
        (flyspell-auto-correct-word): Remove `nil' argument from call to
        `flyspell-get-word'.
        (flyspell-correct-word-before-point): Remove `nil' argument from
        call to `flyspell-get-word'.
        (flyspell-word-search-forward): Remove `nil' argument from call to
        `flyspell-get-word'.
        (flyspell-word-search-backward): Remove `nil' argument from call to
        `flyspell-get-word'.

>From a225dd1077da59791bddd77b9f62e43e1c02a9cb Mon Sep 17 00:00:00 2001
From: Jari Aalto <[email-masked]>
Date: Mon, 28 Sep 2009 14:18:05 +0300
Subject: [PATCH] lisp/textmodes/flyspell.el: (flyspell-get-word): Correct function argment list according to docstring

Signed-off-by: Jari Aalto <[email-masked]>
---
 lisp/textmodes/flyspell.el |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index eff19e6..8ee0220 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -986,7 +986,7 @@ Mostly we check word delimiters."
 	  (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 @@ Mostly we check word delimiters."
 	  (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 @@ this function changes the last char of the `ispell-casechars' string."
 ;;*---------------------------------------------------------------------*/
 ;;*    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 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
 			      ;; 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 @@ This command proposes various successive corrections for the current word."
 	  (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 @@ If OPOINT is non-nil, restore point there after adjusting it for replacement."
   (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))))
-- 
1.6.3.3