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))))))))))