flyspell.el (flyspell-generic-progmode-verify): Make sure to check inside the word (Bug#6761).

This commit is contained in:
Agustín Martín 2010-11-15 13:27:33 +01:00
parent f16cafe309
commit 84992dff60
2 changed files with 7 additions and 1 deletions

View file

@ -1,3 +1,8 @@
2010-11-15 Agustín Martín <agustin.martin@hispalinux.es>
* textmodes/flyspell.el (flyspell-generic-progmode-verify):
Make sure to check inside the word (Bug#6761).
2010-11-14 Chong Yidong <cyd@stupidchicken.com>
* startup.el (command-line): If the cursorColor resource is set,

View file

@ -380,7 +380,8 @@ like <img alt=\"Some thing.\">."
(defun flyspell-generic-progmode-verify ()
"Used for `flyspell-generic-check-word-predicate' in programming modes."
(let ((f (get-text-property (point) 'face)))
;; (point) is next char after the word. Must check one char before.
(let ((f (get-text-property (- (point) 1) 'face)))
(memq f flyspell-prog-text-faces)))
;;;###autoload