Mercurial > emacs
changeset 33787:d16b29f737a7
(flyspell-prog-text-faces): New var.
(flyspell-generic-progmode-verify): Use it.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 22 Nov 2000 21:05:36 +0000 |
| parents | 9f63b158eb6b |
| children | 6388939477a4 |
| files | lisp/textmodes/flyspell.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/flyspell.el Wed Nov 22 20:59:39 2000 +0000 +++ b/lisp/textmodes/flyspell.el Wed Nov 22 21:05:36 2000 +0000 @@ -289,10 +289,14 @@ ;*---------------------------------------------------------------------*/ ;* 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 ()