[elpa] 79/352: (mapconcat 'concat ...) --> (mapconcat 'identity ...)

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit bd3b0d203bd376401b319a6d3a6020bc9fe168ac
Author: Teemu Likonen <tliko...@iki.fi>
Date:   Sat Jun 27 14:46:29 2009 +0000

    (mapconcat 'concat ...) --> (mapconcat 'identity ...)
    
    Ulkoisesti toiminta ei muutu, mutta se on sisäisesti hieman
    yksinkertaisempi.
---
 wcheck-mode.el |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/wcheck-mode.el b/wcheck-mode.el
index 5832446..85832fa 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -748,7 +748,7 @@ external process which handles LANGUAGE. Each string in 
WORDLIST
 is sent as separate line."
   (let ((proc (wcheck-start-get-process language))
         string)
-    (setq string (concat "\n" (mapconcat 'concat wordlist "\n") "\n"))
+    (setq string (concat "\n" (mapconcat 'identity wordlist "\n") "\n"))
     (process-send-string proc string)
     string))