emacs-diffs
[Top][All Lists]
Advanced

[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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]