From c6e80fdb65ca425d4826f48c348cfd9e30f8eb9b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Simen=20Heggest=C3=B8yl?= Date: Sun, 17 May 2020 08:49:08 +0200 Subject: [PATCH] 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 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 () -- 2.39.5