[elpa] 58/352: Funktio wcheck-paint-words englanniksi

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit cb7fb5711dae26c96d691815c640ecc67b2b8d73
Author: Teemu Likonen <address@hidden>
Date:   Fri May 22 11:19:54 2009 +0000

    Funktio wcheck-paint-words englanniksi
---
 wcheck-mode.el |   12 +++++++++++-
 1 files changed, 11 insertions(+), 1 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index e6fc2d5..834e68a 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -709,7 +709,12 @@ käsittelee kieltä LANGUAGE."
 
 
 (defun wcheck-paint-words (language window wordlist)
-  "Merkkaa listassa WORDLIST listatut sanat ikkunassa WINDOW."
+  "Mark words in WORDLIST which are visible in WINDOW.
+Mark all words (or other text elements) in WORDLIST which are
+visible in WINDOW. Regular expression text-search respects the
+syntax table settings defined in LANGUAGE (see
+`wcheck-language-data')."
+
   (when (window-live-p window)
     (with-selected-window window
       (save-excursion
@@ -721,13 +726,18 @@ käsittelee kieltä LANGUAGE."
               (syntax (eval (wcheck-query-language-data language 'syntax t)))
               (case-fold-search nil)
               regexp)
+
           (with-syntax-table syntax
             (dolist (word wordlist)
               (setq regexp (concat r-start "\\("
                                    (regexp-quote word) "\\)"
                                    r-end))
               (goto-char w-start)
+
               (while (re-search-forward regexp w-end t)
+                ;; If the point is invisible jump forward to the next
+                ;; change of "invisible" text property, else make the
+                ;; overlay.
                 (if (get-char-property (match-beginning 1) 'invisible buffer)
                     (goto-char (next-single-char-property-change
                                 (match-beginning 1) 'invisible buffer w-end))