[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/textmodes/flyspell.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/textmodes/flyspell.el |
Date: |
Fri, 23 Sep 2005 14:28:10 -0400 |
Index: emacs/lisp/textmodes/flyspell.el
diff -c emacs/lisp/textmodes/flyspell.el:1.75
emacs/lisp/textmodes/flyspell.el:1.76
*** emacs/lisp/textmodes/flyspell.el:1.75 Sun Sep 18 12:28:29 2005
--- emacs/lisp/textmodes/flyspell.el Fri Sep 23 18:28:10 2005
***************
*** 169,179 ****
(defcustom flyspell-incorrect-hook nil
"*List of functions to be called when incorrect words are encountered.
! Each function is given three arguments: the beginning and the end
! of the incorrect region. The third is either the symbol 'doublon' or the list
of possible corrections as returned by `ispell-parse-output'.
! If any of the functions return non-Nil, the word is not highlighted as
incorrect."
:group 'flyspell
:version "21.1"
--- 169,180 ----
(defcustom flyspell-incorrect-hook nil
"*List of functions to be called when incorrect words are encountered.
! Each function is given three arguments. The first two
! arguments are the beginning and the end of the incorrect region.
! The third is either the symbol `doublon' or the list
of possible corrections as returned by `ispell-parse-output'.
! If any of the functions return non-nil, the word is not highlighted as
incorrect."
:group 'flyspell
:version "21.1"
***************
*** 1086,1091 ****
--- 1087,1094 ----
word
(+ end
flyspell-duplicate-distance))))))
+ ;; This is a misspelled word which occurs
+ ;; twice within flyspell-duplicate-distance.
(setq flyspell-word-cache-result nil)
(if flyspell-highlight-flag
(flyspell-highlight-duplicate-region
***************
*** 1559,1565 ****
;* flyspell-highlight-incorrect-region ... */
;*---------------------------------------------------------------------*/
(defun flyspell-highlight-incorrect-region (beg end poss)
! "Set up an overlay on a misspelled word, in the buffer from BEG to END."
(let ((inhibit-read-only t))
(unless (run-hook-with-args-until-success
'flyspell-incorrect-hook beg end poss)
--- 1562,1572 ----
;* flyspell-highlight-incorrect-region ... */
;*---------------------------------------------------------------------*/
(defun flyspell-highlight-incorrect-region (beg end poss)
! "Set up an overlay on a misspelled word, in the buffer from BEG to END.
! POSS is usually a list of possible spelling/correction lists,
! as returned by `ispell-parse-output'.
! It can also be the symbol `doublon', in the case where the word
! is itself incorrect, but suspiciously repeated."
(let ((inhibit-read-only t))
(unless (run-hook-with-args-until-success
'flyspell-incorrect-hook beg end poss)
***************
*** 1592,1599 ****
;* flyspell-highlight-duplicate-region ... */
;*---------------------------------------------------------------------*/
(defun flyspell-highlight-duplicate-region (beg end poss)
! "Set up an overlay on a duplicated word, in the buffer from BEG to END.
! ??? What does POSS mean?"
(let ((inhibit-read-only t))
(unless (run-hook-with-args-until-success
'flyspell-incorrect-hook beg end poss)
--- 1599,1607 ----
;* flyspell-highlight-duplicate-region ... */
;*---------------------------------------------------------------------*/
(defun flyspell-highlight-duplicate-region (beg end poss)
! "Set up an overlay on a duplicate misspelled word, in the buffer from BEG
to END.
! POSS is a list of possible spelling/correction lists,
! as returned by `ispell-parse-output'."
(let ((inhibit-read-only t))
(unless (run-hook-with-args-until-success
'flyspell-incorrect-hook beg end poss)