From unknown Sat Sep 06 01:12:05 2025 Content-Disposition: inline Content-Transfer-Encoding: quoted-printable MIME-Version: 1.0 X-Mailer: MIME-tools 5.509 (Entity 5.509) Content-Type: text/plain; charset=utf-8 From: bug#4577 <4577@debbugs.gnu.org> To: bug#4577 <4577@debbugs.gnu.org> Subject: Status: [PATCH] Emacs CVS: flyspell.el: (flyspell-get-word): Correct function argment list according to docstring Reply-To: bug#4577 <4577@debbugs.gnu.org> Date: Sat, 06 Sep 2025 08:12:05 +0000 retitle 4577 [PATCH] Emacs CVS: flyspell.el: (flyspell-get-word): Correct f= unction argment list according to docstring reassign 4577 emacs submitter 4577 Jari Aalto severity 4577 normal tag 4577 patch thanks From jari.aalto@cante.net Mon Sep 28 04:21:00 2009 Received: (at submit) by emacsbugs.donarmstrong.com; 28 Sep 2009 11:21:00 +0000 X-Spam-Checker-Version: SpamAssassin 3.2.5-bugs.debian.org_2005_01_02 (2008-06-10) on rzlab.ucr.edu X-Spam-Level: X-Spam-Bayes: score:0.5 Bayes not run. spammytokens:Tokens not available. hammytokens:Tokens not available. X-Spam-Status: No, score=-0.2 required=4.0 tests=AWL,IMPRONONCABLE_2, MURPHY_DRUGS_REL8 autolearn=no version=3.2.5-bugs.debian.org_2005_01_02 Received: from emh03.mail.saunalahti.fi (emh03.mail.saunalahti.fi [62.142.5.109]) by rzlab.ucr.edu (8.14.3/8.14.3/Debian-5) with ESMTP id n8SBKwNY015976 for ; Mon, 28 Sep 2009 04:21:00 -0700 Received: from saunalahti-vams (vs3-10.mail.saunalahti.fi [62.142.5.94]) by emh03-2.mail.saunalahti.fi (Postfix) with SMTP id 6F081EBFB9 for ; Mon, 28 Sep 2009 14:20:57 +0300 (EEST) Received: from emh07.mail.saunalahti.fi ([62.142.5.117]) by vs3-10.mail.saunalahti.fi ([62.142.5.94]) with SMTP (gateway) id A0165A6CFE6; Mon, 28 Sep 2009 14:20:57 +0300 Received: from jondo.cante.net (a91-155-187-216.elisa-laajakaista.fi [91.155.187.216]) by emh07.mail.saunalahti.fi (Postfix) with ESMTP id 52DE01C6389 for ; Mon, 28 Sep 2009 14:20:56 +0300 (EEST) From: Jari Aalto To: submit@debbugs.gnu.org Subject: [PATCH] Emacs CVS: flyspell.el: (flyspell-get-word): Correct function argment list according to docstring Organization: Private Date: Mon, 28 Sep 2009 14:20:55 +0300 Message-ID: <87pr9bwc14.fsf@jondo.cante.net> User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/23.1 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Antivirus: VAMS --=-=-= 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 * 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'. --=-=-= Content-Type: text/x-diff Content-Disposition: inline; filename=0001-lisp-textmodes-flyspell.el-flyspell-get-word-Correct.patch >From a225dd1077da59791bddd77b9f62e43e1c02a9cb Mon Sep 17 00:00:00 2001 From: Jari Aalto 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 --- 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 --=-=-=-- From rgm@gnu.org Fri Oct 16 20:10:35 2009 Received: (at 4577-done) by emacsbugs.donarmstrong.com; 17 Oct 2009 03:10:35 +0000 X-Spam-Checker-Version: SpamAssassin 3.2.5-bugs.debian.org_2005_01_02 (2008-06-10) on rzlab.ucr.edu X-Spam-Level: X-Spam-Bayes: score:0.5 Bayes not run. spammytokens:Tokens not available. hammytokens:Tokens not available. X-Spam-Status: No, score=-7.4 required=4.0 tests=AWL,HAS_BUG_NUMBER, X_DEBBUGS_NO_ACK autolearn=ham version=3.2.5-bugs.debian.org_2005_01_02 Received: from fencepost.gnu.org (fencepost.gnu.org [140.186.70.10]) by rzlab.ucr.edu (8.14.3/8.14.3/Debian-5) with ESMTP id n9H3AYgq002237 for <4577-done@emacsbugs.donarmstrong.com>; Fri, 16 Oct 2009 20:10:35 -0700 Received: from rgm by fencepost.gnu.org with local (Exim 4.67) (envelope-from ) id 1Myzgf-0004TR-Kb; Fri, 16 Oct 2009 23:10:33 -0400 From: Glenn Morris To: 4577-done@debbugs.gnu.org Subject: Re: Bug#4577: flyspell.el: (flyspell-get-word): Correct function argment list according to docstring References: <87pr9bwc14.fsf@jondo.cante.net> X-Spook: Qaddafi warfare AIMSX Noriega cypherpunk George W. Bush X-Ran: MLzw2%Q#vXU}+HQMi3:5`I)$)M+QB|LqE{2,K%"SdhL&4aNvYS%]5$i@W>CqG8(i"M}VmH X-Hue: black X-Debbugs-No-Ack: yes X-Attribution: GM Date: Fri, 16 Oct 2009 23:10:33 -0400 Message-ID: User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Thanks; applied (with paren typo corrected). From unknown Sat Sep 06 01:12:05 2025 Received: (at fakecontrol) by fakecontrolmessage; To: internal_control@debbugs.gnu.org From: Debbugs Internal Request Subject: Internal Control Message-Id: bug archived. Date: Sat, 14 Nov 2009 15:24:14 +0000 User-Agent: Fakemail v42.6.9 # A New Hope # A long time ago, in a galaxy far, far away # something happened. # # Magically this resulted in the following # action being taken, but this fake control # message doesn't tell you why it happened # # The action: # bug archived. thanks # This fakemail brought to you by your local debbugs # administrator