Function: project--keymap-prompt

project--keymap-prompt is a byte-compiled function defined in project.el.gz.

Signature

(project--keymap-prompt)

Documentation

Return a prompt for the project switching dispatch menu.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/project.el.gz
(defun project--keymap-prompt ()
  "Return a prompt for the project switching dispatch menu."
  (mapconcat
   (pcase-lambda (`(,cmd ,label ,key))
     (when (characterp cmd) ; Old format, apparently user-customized.
       (let ((tmp cmd))
         ;; TODO: Add a deprecation warning, probably.
         (setq cmd key
               key tmp)))
     (let ((key (if key
                    (vector key)
                  (where-is-internal cmd (list project-prefix-map) t))))
       (format "[%s] %s"
               (propertize (key-description key) 'face 'bold)
               label)))
   project-switch-commands
   "  "))