diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-11-22 21:05:36 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-11-22 21:05:36 +0000 |
| commit | 9b047c6934824f1e77ac721596a5dc9b815c3a14 (patch) | |
| tree | 283f51c2f6074ef35a30b052a9a5cf576cb280b6 /lisp/textmodes | |
| parent | eaae8106d7be3d9ffa8e53bb5621d4dab118d5a9 (diff) | |
| download | emacs-9b047c6934824f1e77ac721596a5dc9b815c3a14.tar.gz | |
(flyspell-prog-text-faces): New var.
(flyspell-generic-progmode-verify): Use it.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 8854633d58f..229dcc1956e 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -289,10 +289,14 @@ property of the major mode name.") ;*---------------------------------------------------------------------*/ ;* Programming mode */ ;*---------------------------------------------------------------------*/ +(defvar flyspell-prog-text-faces + '(font-lock-string-face font-lock-comment-face font-lock-doc-face) + "Faces corresponding to text in programming-mode buffers.") + (defun flyspell-generic-progmode-verify () "Used for `flyspell-generic-check-word-p' in programming modes." (let ((f (get-text-property (point) 'face))) - (memq f '(font-lock-comment-face font-lock-string-face)))) + (memq f flyspell-prog-text-faces))) ;;;###autoload (defun flyspell-prog-mode () |