[elpa] 110/352: Muutetaan wcheck-send-words hakemaan kielitiedot tietokannasta

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 30d41eb238fa9f4f8c850c4478aad2c40bd27329
Author: Teemu Likonen <address@hidden>
Date:   Wed Jul 22 08:00:25 2009 +0000

    Muutetaan wcheck-send-words hakemaan kielitiedot tietokannasta
---
 wcheck-mode.el |   13 +++++++------
 1 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 35f96d8..257b6d1 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -783,13 +783,14 @@ elements between BEG and END; all hidden parts are 
omitted."
           words)))))
 
 
-(defun wcheck-send-words (language wordlist)
-  "Send WORDLIST for the process that handles LANGUAGE.
+(defun wcheck-send-words (buffer wordlist)
+  "Send WORDLIST for the process that handles BUFFER.
 WORDLIST is a list of strings to be sent as input for the
-external process which handles LANGUAGE. Each string in WORDLIST
-is sent as separate line."
-  (let ((proc (wcheck-start-get-process language))
-        string)
+external process which handles BUFFER. Each string in WORDLIST is
+sent as separate line."
+  (let* ((language (wcheck-get-buffer-data buffer :language))
+         (proc (wcheck-start-get-process buffer))
+         string)
     (setq string (concat (mapconcat #'identity wordlist "\n") "\n"))
     (process-send-string proc string)
     string))