[elpa] 109/352: Muutetaan wcheck-read-words hakemaan kielitiedot tietokannasta

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit c0f3b97c26c6497e0eb9192c3f9b266da51c6b3a
Author: Teemu Likonen <tliko...@iki.fi>
Date:   Wed Jul 22 07:59:41 2009 +0000

    Muutetaan wcheck-read-words hakemaan kielitiedot tietokannasta
---
 wcheck-mode.el |   35 ++++++++++++++++++-----------------
 1 files changed, 18 insertions(+), 17 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 6000692..35f96d8 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -730,29 +730,30 @@ BUFFER from the list."
 ;;; Miscellaneous low-level functions
 
 
-(defun wcheck-read-words (language buffer beg end)
+(defun wcheck-read-words (buffer beg end)
   "Return a list of text elements in BUFFER.
 Scan BUFFER between positions BEG and END and search for text
-elements defined in LANGUAGE (see `wcheck-language-data'). Return
-a list containing visible text elements between BEG and END; all
-hidden parts are omitted."
+elements according to buffer's language settings (see
+`wcheck-language-data'). Return a list containing visible text
+elements between BEG and END; all hidden parts are omitted."
   (when (buffer-live-p buffer)
     (with-current-buffer buffer
       (save-excursion
 
-        (let ((regexp (concat
-                       (wcheck-query-language-data language 'regexp-start t)
-                       "\\("
-                       (wcheck-query-language-data language 'regexp-body t)
-                       "\\)"
-                       (wcheck-query-language-data language 'regexp-end t)))
-
-              (syntax (eval (wcheck-query-language-data language 'syntax t)))
-              (discard (wcheck-query-language-data language 'regexp-discard t))
-              (case-fold-search
-               (wcheck-query-language-data language 'case-fold t))
-              (old-point 0)
-              words)
+        (let* ((language (wcheck-get-buffer-data buffer :language))
+               (regexp (concat
+                        (wcheck-query-language-data language 'regexp-start t)
+                        "\\("
+                        (wcheck-query-language-data language 'regexp-body t)
+                        "\\)"
+                        (wcheck-query-language-data language 'regexp-end t)))
+
+               (syntax (eval (wcheck-query-language-data language 'syntax t)))
+               (discard (wcheck-query-language-data language 'regexp-discard 
t))
+               (case-fold-search
+                (wcheck-query-language-data language 'case-fold t))
+               (old-point 0)
+               words)
 
           (with-syntax-table syntax
             (goto-char beg)