branch: elpa/with-editor
commit f5157d615238eb17e62f45eefe921002c6340366
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Use string-join instead of mapconcat
---
lisp/with-editor.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/with-editor.el b/lisp/with-editor.el
index 99ea6b88b5..a49349af56 100644
--- a/lisp/with-editor.el
+++ b/lisp/with-editor.el
@@ -113,7 +113,7 @@ please see
https://github.com/magit/magit/wiki/Emacsclient.";))))
(defun with-editor-locate-emacsclient-1 (path depth)
(let* ((version-lst (cl-subseq (split-string emacs-version "\\.") 0 depth))
- (version-reg (concat "^" (mapconcat #'identity version-lst "\\."))))
+ (version-reg (concat "^" (string-join version-lst "\\."))))
(or (locate-file
(cond ((equal (downcase invocation-name) "remacs")
"remacsclient")
@@ -125,7 +125,7 @@ please see
https://github.com/magit/magit/wiki/Emacsclient.";))))
(nconc (and (boundp 'debian-emacs-flavor)
(list (format ".%s" debian-emacs-flavor)))
(cl-mapcon (lambda (v)
- (setq v (mapconcat #'identity (reverse v) "."))
+ (setq v (string-join (reverse v) "."))
(list v (concat "-" v) (concat ".emacs" v)))
(reverse version-lst))
(list "" "-snapshot" ".emacs-snapshot")))
