monnier pushed a commit to branch master
in repository elpa.
commit 850b48bcd955cfd1c72b5fb5212bc2c0c59ad543
Author: Teemu Likonen <[email protected]>
Date: Thu Jul 23 12:40:51 2009 +0000
Poistetaan turha roina funktiosta wcheck-send-words
---
wcheck-mode.el | 18 +++++++-----------
1 files changed, 7 insertions(+), 11 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index 6bcffd9..85f1ff2 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -789,17 +789,13 @@ elements between BEG and END; all hidden parts are
omitted."
words)))))
-(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 BUFFER. Each string in WORDLIST is
-sent as separate line."
- (let* ((language (wcheck-get-data :buffer buffer :language))
- (proc (wcheck-start-get-process buffer))
- string)
- (setq string (concat (mapconcat #'identity wordlist "\n") "\n"))
- (process-send-string proc string)
- string))
+(defun wcheck-send-words (buffer strings)
+ "Send STRINGS for the process that handles BUFFER.
+STRINGS is a list of strings to be sent as input for the external
+process which handles BUFFER. Each string in STRINGS is sent as
+separate line."
+ (process-send-string (wcheck-start-get-process buffer)
+ (concat (mapconcat #'identity strings "\n") "\n")))
(defun wcheck-paint-words (buffer beg end wordlist)
