[elpa] externals/dicom 8420c62046: Use mapconcat

[ELPA Syncer]

branch: externals/dicom
commit 8420c6204687cdedf8b5c469bb688b8ef5f7b635
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Use mapconcat
---
 dicom.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/dicom.el b/dicom.el
index e014f1cb38..48b87033a1 100644
--- a/dicom.el
+++ b/dicom.el
@@ -259,10 +259,9 @@ progress:${percent-pos}%%' %s) & disown"
                                 "--quiet" "--charset-assume"
                                 "latin-1" "--convert-to-utf8" file))
       (error "DICOM: Reading DICOM metadata with dcm2xml failed"))
-    (let ((dicom-attribute-filter (string-join
-                               (mapcar (lambda (x) (format "%s" x))
-                                       dicom-attribute-filter)
-                               "\\|")))
+    (let ((dicom-attribute-filter (mapconcat (lambda (x) (format "%s" x))
+                                             dicom-attribute-filter
+                                             "\\|")))
       (dicom--convert (dom-child-by-tag (libxml-parse-xml-region) 
'data-set)))))
 
 (defun dicom--image-buffer ()