scratch/project-switching 8f891eb: Simplify 'project--keymap-prompt' a bit

[Simen Heggestøyl]

branch: scratch/project-switching
commit 8f891ebf15f9bcc002746f4383a385c3530408c0
Author: Simen Heggestøyl <address@hidden>
Commit: Simen Heggestøyl <address@hidden>

    Simplify 'project--keymap-prompt' a bit
    
    * lisp/progmodes/project.el: Remove seq requirement.
    (project--keymap-prompt): Simplify with 'mapconcat'.
---
 lisp/progmodes/project.el | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index e7e4cc5..04bd8b4 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -88,7 +88,6 @@
 ;;; Code:
 
 (require 'cl-generic)
-(require 'seq)
 (eval-when-compile (require 'subr-x))
 
 (defvar project-find-functions (list #'project-try-vc)
@@ -743,13 +742,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 ()