(flyspell-prog-text-faces): New var.

[gnu-emacs] / lisp / textmodes / flyspell.el

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index 8854633d58f96cc877ed495efb94ae77985c339e..229dcc1956e9cdf71a4c384430e222e0478e4b9f 100644 (file)
--- 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 ()