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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99eca11ee4c3a8691326f313f3fa317fb8b4a3f3..26c814fcc214f01443f41659fa226db5d2b16abc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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,

diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index b08b75c728b8dd8464f8006f083215e9234df2db..5dbcb2d7d7712118f2e1f3ef2fe3ea26ea66edde 100644 (file)
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -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