[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/with-editor f5157d6152: Use string-join instead of mapconc
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/with-editor f5157d6152: Use string-join instead of mapconcat |
Date: |
Sun, 23 Jun 2024 13:01:09 -0400 (EDT) |
branch: elpa/with-editor
commit f5157d615238eb17e62f45eefe921002c6340366
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
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")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/with-editor f5157d6152: Use string-join instead of mapconcat,
ELPA Syncer <=