From 84992dff60e450d1c81283fac2b77294e8ad7755 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Agust=C3=ADn=20Mart=C3=ADn?= <agustin.martin@hispalinux.es>
Date: Mon, 15 Nov 2010 13:27:33 +0100
Subject: [PATCH] flyspell.el (flyspell-generic-progmode-verify): Make sure to
 check inside the word (Bug#6761).

---
 lisp/ChangeLog             | 5 +++++
 lisp/textmodes/flyspell.el | 3 ++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 99eca11ee4c..26c814fcc21 100644
--- 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 b08b75c728b..5dbcb2d7d77 100644
--- 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
-- 
2.39.5