[elpa] 56/352: Muodostetaan säännöllinen lauseke valmiiksi ennen silmukkaa

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 29a7fb2924a09e5178a6eeb89289d4c9008f4bf8
Author: Teemu Likonen <tliko...@iki.fi>
Date:   Fri May 22 11:18:39 2009 +0000

    Muodostetaan säännöllinen lauseke valmiiksi ennen silmukkaa
---
 wcheck-mode.el |   11 ++++++-----
 1 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 1f13f36..6b53dd0 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -719,14 +719,15 @@ käsittelee kieltä LANGUAGE."
               (r-start (wcheck-query-language-data language 'regexp-start t))
               (r-end (wcheck-query-language-data language 'regexp-end t))
               (syntax (eval (wcheck-query-language-data language 'syntax t)))
-              (case-fold-search nil))
+              (case-fold-search nil)
+              regexp)
           (with-syntax-table syntax
             (dolist (word wordlist)
-              (setq word (regexp-quote word))
+              (setq regexp (concat r-start "\\("
+                                   (regexp-quote word) "\\)"
+                                   r-end))
               (goto-char w-start)
-              (while (re-search-forward
-                      (concat r-start "\\(" word "\\)" r-end)
-                      w-end t)
+              (while (re-search-forward regexp w-end t)
                 (wcheck-make-overlay language buffer
                                      (match-beginning 1)
                                      (match-end 1))))))))))