From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 22 Nov 2000 21:05:36 +0000 (+0000)
Subject: (flyspell-prog-text-faces): New var.
X-Git-Tag: emacs-pretest-21.0.92~148
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b047c6934824f1e77ac721596a5dc9b815c3a14;p=emacs.git

(flyspell-prog-text-faces): New var.
(flyspell-generic-progmode-verify): Use it.
---

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 ()