mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(flyspell-mark-duplications-exceptions): New variable. List of

Browse Source 
exceptions for the duplicated word rule.
(flyspell-mark-duplications-flag): Mention it.
(flyspell-word): Treat it.
This commit is contained in:
Michaël Cadilhac 2007-08-31 13:41:31 +00:00
parent 661e8cd19b
commit 08fea92887
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,5 +1,10 @@
2007-08-31 Micha,Ak(Bl Cadilhac <michael@cadilhac.name>
* textmodes/flyspell.el (flyspell-mark-duplications-exceptions):
New variable. List of exceptions for the duplicated word rule.
(flyspell-mark-duplications-flag): Mention it.
(flyspell-word): Treat it.
* files.el (create-file-buffer): If the filename sans directory starts
with spaces, remove them.

17
lisp/textmodes/flyspell.el
View File

@ -67,11 +67,21 @@ Non-nil means use highlight, nil means use minibuffer messages."
(defcustom flyspell-mark-duplications-flag t
"Non-nil means Flyspell reports a repeated word as an error.
See `flyspell-mark-duplications-exceptions' to add exceptions to this rule.
Detection of repeated words is not implemented in
\"large\" regions; see `flyspell-large-region'."
:group 'flyspell
:type 'boolean)
(defcustom flyspell-mark-duplications-exceptions
'(("francais" . ("nous" "vous")))
"A list of exceptions for duplicated words.
It should be a list of (LANGUAGE . EXCEPTION-LIST). LANGUAGE is matched
against the current dictionary and EXCEPTION-LIST is a list of strings.
The duplicated word is downcased before it is compared with the exceptions."
:group 'flyspell
:type '(alist :key-type string :value-type (repeat string)))
(defcustom flyspell-sort-corrections nil
"Non-nil means, sort the corrections alphabetically before popping them."
:group 'flyspell
@ -1022,6 +1032,13 @@ Mostly we check word delimiters."
(and (> start (point-min))
(not (memq (char-after (1- start)) '(?\} ?\\)))))
flyspell-mark-duplications-flag
(not (catch 'exception
(dolist (except flyspell-mark-duplications-exceptions)
(and (string= (or ispell-local-dictionary
ispell-dictionary)
(car except))
(member (downcase word) (cdr except))
(throw 'exception t)))))
(save-excursion
(goto-char start)
(let* ((bound