# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 974927136 0
# Node ID d16b29f737a7d7ae2086aa7fd5d81840bcba4331
# Parent  9f63b158eb6b816e7eeebfbbcc25899ce0614103
(flyspell-prog-text-faces): New var.
(flyspell-generic-progmode-verify): Use it.

diff -r 9f63b158eb6b -r d16b29f737a7 lisp/textmodes/flyspell.el
--- 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 ()