mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(flyspell-incorrect-hook, flyspell-highlight-incorrect-region)

Browse Source 
(flyspell-highlight-duplicate-region): Doc fixes.
This commit is contained in:
Richard M. Stallman 2005-09-23 18:29:20 +00:00
parent 5ac71a6af1
commit 91346f5419
2 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -1,3 +1,12 @@
2005-09-23 Richard M. Stallman <rms@gnu.org>
* textmodes/flyspell.el (flyspell-highlight-incorrect-region)
(flyspell-incorrect-hook, flyspell-highlight-duplicate-region):
Doc fixes.
* progmodes/cc-mode.el (c-font-lock-init): Specify
font-lock-lines-before.
2005-09-23 Stefan Monnier <monnier@iro.umontreal.ca>
* smerge-mode.el (smerge-remove-props): Cause re-highlighting of the

20
lisp/textmodes/flyspell.el
View File

@ -169,11 +169,12 @@ command was not the very same command."
(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
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
If any of the functions return non-nil, the word is not highlighted as
incorrect."
:group 'flyspell
:version "21.1"
@ -1086,6 +1087,8 @@ Mostly we check word delimiters."
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,7 +1562,11 @@ for the overlay."
;* 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."
"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,8 +1599,9 @@ for the overlay."
;* 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?"
"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)