From: Simen Heggestøyl <simenheg@gmail.com>
Date: Sun, 17 May 2020 06:49:08 +0000 (+0200)
Subject: Simplify 'project--keymap-prompt' a bit
X-Git-Tag: emacs-28.0.90~7260^2~8
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c6e80fdb65ca425d4826f48c348cfd9e30f8eb9b;p=emacs.git

Simplify 'project--keymap-prompt' a bit

* lisp/progmodes/project.el: Remove seq requirement.
(project--keymap-prompt): Simplify with 'mapconcat'.
---

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index a00bb703814..7f765e628eb 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -93,7 +93,6 @@
 ;;; Code:
 
 (require 'cl-generic)
-(require 'seq)
 (eval-when-compile (require 'subr-x))
 
 (defvar project-find-functions (list #'project-try-vc)
@@ -808,13 +807,13 @@ the choice in the dispatch menu.")
 
 (defun project--keymap-prompt ()
   "Return a prompt for the project swithing dispatch menu."
-  (string-trim
-   (seq-mapcat
-    (pcase-lambda (`(,key ,label))
-      (format "[%s] %s  "
-              (propertize (key-description `(,key)) 'face 'bold)
-              label))
-    project-switch-menu 'string)))
+  (mapconcat
+   (pcase-lambda (`(,key ,label))
+     (format "[%s] %s"
+             (propertize (key-description `(,key)) 'face 'bold)
+             label))
+   project-switch-menu
+   "  "))
 
 ;;;###autoload
 (defun project-switch-project ()