Function: erc-spelling-flyspell-verify

erc-spelling-flyspell-verify is a byte-compiled function defined in erc-spelling.el.gz.

Signature

(erc-spelling-flyspell-verify)

Documentation

Flyspell only the input line, nothing else.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-spelling.el.gz
(defun erc-spelling-flyspell-verify ()
  "Flyspell only the input line, nothing else."
  ;; FIXME: Don't use `flyspell-word'!
  (let ((word-data (and (boundp 'flyspell-word)
                        flyspell-word)))
    (when word-data
      (cond ((< (point) erc-input-marker)
             nil)
            ;; don't spell-check names of users
            ((and erc-channel-users
                  (erc-get-channel-user (car word-data)))
             (erc-spelling-unhighlight-word word-data)
             nil)
            ;; if '/' occurs before the word, don't spell-check it
            ((eq (char-before (nth 1 word-data)) ?/)
             (erc-spelling-unhighlight-word word-data)
             nil)
            (t t)))))