diff options
| author | Agustín Martín | 2010-11-15 13:27:33 +0100 |
|---|---|---|
| committer | Agustín Martín | 2010-11-15 13:27:33 +0100 |
| commit | 84992dff60e450d1c81283fac2b77294e8ad7755 (patch) | |
| tree | 5a3747dd5154d57a7a0876e0b0f57668f3e3818e /lisp/textmodes | |
| parent | f16cafe3093ab440f235d5984f9bcfacfa8843e6 (diff) | |
| download | emacs-84992dff60e450d1c81283fac2b77294e8ad7755.tar.gz emacs-84992dff60e450d1c81283fac2b77294e8ad7755.zip | |
flyspell.el (flyspell-generic-progmode-verify): Make sure to check inside the word (Bug#6761).
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index b08b75c728b..5dbcb2d7d77 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -380,7 +380,8 @@ like <img alt=\"Some thing.\">." | |||
| 380 | 380 | ||
| 381 | (defun flyspell-generic-progmode-verify () | 381 | (defun flyspell-generic-progmode-verify () |
| 382 | "Used for `flyspell-generic-check-word-predicate' in programming modes." | 382 | "Used for `flyspell-generic-check-word-predicate' in programming modes." |
| 383 | (let ((f (get-text-property (point) 'face))) | 383 | ;; (point) is next char after the word. Must check one char before. |
| 384 | (let ((f (get-text-property (- (point) 1) 'face))) | ||
| 384 | (memq f flyspell-prog-text-faces))) | 385 | (memq f flyspell-prog-text-faces))) |
| 385 | 386 | ||
| 386 | ;;;###autoload | 387 | ;;;###autoload |