Mercurial > emacs

diff lisp/textmodes/flyspell.el @ 33787:d16b29f737a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 62b21497a99f
children 6043184119bc
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 ()