[elpa] 57/352: Maalataan vain näkyvät tekstialueet, hypätään näkymättömien yli

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 143cd13c42c51b2d2d521815d5117da23d58e269
Author: Teemu Likonen <tliko...@iki.fi>
Date:   Fri May 22 11:19:16 2009 +0000

    Maalataan vain näkyvät tekstialueet, hypätään näkymättömien yli
---
 wcheck-mode.el |    9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 6b53dd0..e6fc2d5 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -728,9 +728,12 @@ käsittelee kieltä LANGUAGE."
                                    r-end))
               (goto-char w-start)
               (while (re-search-forward regexp w-end t)
-                (wcheck-make-overlay language buffer
-                                     (match-beginning 1)
-                                     (match-end 1))))))))))
+                (if (get-char-property (match-beginning 1) 'invisible buffer)
+                    (goto-char (next-single-char-property-change
+                                (match-beginning 1) 'invisible buffer w-end))
+                  (wcheck-make-overlay language buffer
+                                       (match-beginning 1)
+                                       (match-end 1)))))))))))
 
 
 (defun wcheck-query-language-data (language key &optional default)