# HG changeset patch
# User Agustin Martin <agustin.martin@hispalinux.es>
# Date 1289824053 -3600
# Node ID fa7baa1af30cb242077359d9905248ced0b8dcea
# Parent  ae7e9ce45a168b9da3305dcbdc2a377f53a37082
flyspell.el (flyspell-generic-progmode-verify): Make sure to check inside the word (Bug#6761).

diff -r ae7e9ce45a16 -r fa7baa1af30c lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Nov 14 22:42:21 2010 -0800
+++ b/lisp/ChangeLog	Mon Nov 15 13:27:33 2010 +0100
@@ -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 -r ae7e9ce45a16 -r fa7baa1af30c lisp/textmodes/flyspell.el
--- a/lisp/textmodes/flyspell.el	Sun Nov 14 22:42:21 2010 -0800
+++ b/lisp/textmodes/flyspell.el	Mon Nov 15 13:27:33 2010 +0100
@@ -380,7 +380,8 @@
 
 (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