emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/project-switching c6e80fd 09/15: Simplify 'project--keymap-promp


From: Simen Heggest°yl
Subject: feature/project-switching c6e80fd 09/15: Simplify 'project--keymap-prompt' a bit
Date: Tue, 26 May 2020 11:43:18 -0400 (EDT)

branch: feature/project-switching
commit c6e80fdb65ca425d4826f48c348cfd9e30f8eb9b
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 a00bb70..7f765e6 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 ()



reply via email to

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