branch: elpa/rpm-spec-mode
commit 739f45912ac1054f71bbd1c224be61fbdebaae26
Author: Jerry James <[email protected]>
Commit: Björn Bidar <[email protected]>
Replace list->string with mapconcat
Signed-off-by: Jerry James <[email protected]>
---
rpm-spec-mode.el | 7 +------
1 file changed, 1 insertion(+), 6 deletions(-)
diff --git a/rpm-spec-mode.el b/rpm-spec-mode.el
index d2c050246a..6da799b558 100644
--- a/rpm-spec-mode.el
+++ b/rpm-spec-mode.el
@@ -1106,12 +1106,7 @@ leave point at previous location."
"\"")
buildoptions)))))
- (progn
- (defun list->string (lst)
- (if (cdr lst)
- (concat (car lst) " " (list->string (cdr lst)))
- (car lst)))
- (compilation-start (list->string (cons rpm-spec-build-command
buildoptions)) 'rpmbuild-mode))
+ (compilation-start (mapconcat #'identity (cons rpm-spec-build-command
buildoptions) " ") 'rpmbuild-mode)
(if (and rpm-spec-sign-gpg (not rpm-no-gpg))
(let ((build-proc (get-buffer-process
