[elpa] 122/352: Poistetaan turha roina funktiosta wcheck-send-words

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 850b48bcd955cfd1c72b5fb5212bc2c0c59ad543
Author: Teemu Likonen <address@hidden>
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)