Function: flyspell-word-search-forward

flyspell-word-search-forward is a byte-compiled function defined in flyspell.el.gz.

Signature

(flyspell-word-search-forward WORD BOUND)

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/flyspell.el.gz
;;*---------------------------------------------------------------------*/
;;*    flyspell-word-search-forward ...                                 */
;;*---------------------------------------------------------------------*/
(defun flyspell-word-search-forward (word bound)
  (save-excursion
    (let* ((r '())
	   (inhibit-point-motion-hooks t)
	   (flyspell-not-casechars (flyspell-get-not-casechars))
	   (bound (if (and bound
			   (< bound (point-max)))
		      (+ bound 1)))
	   (word-re (concat flyspell-not-casechars
                            (regexp-quote word)
                            "\\(?:" flyspell-not-casechars "\\|\\'\\)"))
	   p)
      (while
	  (and (not r)
               (setq p (and
                        (re-search-forward word-re bound t)
                        (if (eobp)
                            (point)
                          (backward-char)
                          (point)))))
        (let ((lw (flyspell-get-word)))
          (if (and (consp lw) (string-equal (car lw) word))
              (setq r p)
            (goto-char (1+ p)))))
      r)))