monnier pushed a commit to branch master
in repository elpa.
commit 30d41eb238fa9f4f8c850c4478aad2c40bd27329
Author: Teemu Likonen <[email protected]>
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))
