emacs-elpa-diffs
[Top][All Lists]
Advanced

[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")))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]