From 9b047c6934824f1e77ac721596a5dc9b815c3a14 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 22 Nov 2000 21:05:36 +0000 Subject: [PATCH] (flyspell-prog-text-faces): New var. (flyspell-generic-progmode-verify): Use it. --- lisp/textmodes/flyspell.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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 () -- 2.39.5