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