[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#4577: [PATCH] Emacs CVS: flyspell.el: (flyspell-get-word): Correct f
From: |
Jari Aalto |
Subject: |
bug#4577: [PATCH] Emacs CVS: flyspell.el: (flyspell-get-word): Correct function argment list according to docstring |
Date: |
Mon, 28 Sep 2009 14:20:55 +0300 |
User-agent: |
Gnus/5.110011 (No Gnus v0.11) Emacs/23.1 (gnu/linux) |
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 <jari.aalto@cante.net>
* 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 <jari.aalto@cante.net>
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 <jari.aalto@cante.net>
---
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- bug#4577: [PATCH] Emacs CVS: flyspell.el: (flyspell-get-word): Correct function argment list according to docstring,
Jari Aalto <=