[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r102396: flyspell.el (flyspell-generi
From: |
Agustin Martin |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r102396: flyspell.el (flyspell-generic-progmode-verify): Make sure to check inside the word (Bug#6761). |
Date: |
Mon, 15 Nov 2010 13:27:33 +0100 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 102396
committer: Agustin Martin <address@hidden>
branch nick: trunk
timestamp: Mon 2010-11-15 13:27:33 +0100
message:
flyspell.el (flyspell-generic-progmode-verify): Make sure to check inside the
word (Bug#6761).
modified:
lisp/ChangeLog
lisp/textmodes/flyspell.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-11-14 02:09:11 +0000
+++ b/lisp/ChangeLog 2010-11-15 12:27:33 +0000
@@ -1,3 +1,8 @@
+2010-11-15 Agustín Martín <address@hidden>
+
+ * textmodes/flyspell.el (flyspell-generic-progmode-verify):
+ Make sure to check inside the word (Bug#6761).
+
2010-11-14 Chong Yidong <address@hidden>
* startup.el (command-line): If the cursorColor resource is set,
=== modified file 'lisp/textmodes/flyspell.el'
--- a/lisp/textmodes/flyspell.el 2010-11-10 10:54:43 +0000
+++ b/lisp/textmodes/flyspell.el 2010-11-15 12:27:33 +0000
@@ -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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r102396: flyspell.el (flyspell-generic-progmode-verify): Make sure to check inside the word (Bug#6761).,
Agustin Martin <=