Mercurial > emacs
comparison lisp/textmodes/flyspell.el @ 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 | 62b21497a99f |
| children | 6043184119bc |
comparison
equal
deleted
inserted
replaced
| 33786:9f63b158eb6b | 33787:d16b29f737a7 |
|---|---|
| 287 (= (match-end 0) this))))))))) | 287 (= (match-end 0) this))))))))) |
| 288 | 288 |
| 289 ;*---------------------------------------------------------------------*/ | 289 ;*---------------------------------------------------------------------*/ |
| 290 ;* Programming mode */ | 290 ;* Programming mode */ |
| 291 ;*---------------------------------------------------------------------*/ | 291 ;*---------------------------------------------------------------------*/ |
| 292 (defvar flyspell-prog-text-faces | |
| 293 '(font-lock-string-face font-lock-comment-face font-lock-doc-face) | |
| 294 "Faces corresponding to text in programming-mode buffers.") | |
| 295 | |
| 292 (defun flyspell-generic-progmode-verify () | 296 (defun flyspell-generic-progmode-verify () |
| 293 "Used for `flyspell-generic-check-word-p' in programming modes." | 297 "Used for `flyspell-generic-check-word-p' in programming modes." |
| 294 (let ((f (get-text-property (point) 'face))) | 298 (let ((f (get-text-property (point) 'face))) |
| 295 (memq f '(font-lock-comment-face font-lock-string-face)))) | 299 (memq f flyspell-prog-text-faces))) |
| 296 | 300 |
| 297 ;;;###autoload | 301 ;;;###autoload |
| 298 (defun flyspell-prog-mode () | 302 (defun flyspell-prog-mode () |
| 299 "Turn on `flyspell-mode' for comments and strings." | 303 "Turn on `flyspell-mode' for comments and strings." |
| 300 (interactive) | 304 (interactive) |