monnier pushed a commit to branch master
in repository elpa.
commit dd38c47e9c29cdbd2a4c9cf5a0425034174a0e3b
Author: Teemu Likonen <[email protected]>
Date: Wed Jul 22 08:01:33 2009 +0000
Muutetaan wcheck-paint-words hakemaan kielitiedot tietokannasta
---
wcheck-mode.el | 19 +++++++++----------
1 files changed, 9 insertions(+), 10 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 257b6d1..39c4727 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -796,22 +796,21 @@ sent as separate line."
string))
-(defun wcheck-paint-words (language buffer beg end wordlist)
+(defun wcheck-paint-words (buffer beg end wordlist)
"Mark words of WORDLIST in BUFFER.
Mark all words (or other text elements) of WORDLIST which are
-visible in BUFFER within position range from BEG to END. Regular
-expression search respects the syntax table settings defined in
-LANGUAGE (see `wcheck-language-data')."
+visible in BUFFER within position range from BEG to END."
(when (buffer-live-p buffer)
(with-current-buffer buffer
(save-excursion
- (let ((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
- (wcheck-query-language-data language 'case-fold t))
- regexp old-point)
+ (let* ((language (wcheck-get-buffer-data buffer :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
+ (wcheck-query-language-data language 'case-fold t))
+ regexp old-point)
(with-syntax-table syntax
(dolist (word wordlist)
