project-key-prompt-style: New option.

* lisp/progmodes/project.el (project-file-history-behavior):
Add :group and :version tags.
(project-key-prompt-style): New option (bug#64799).

* etc/NEWS: Mention it.

diff --git a/etc/NEWS b/etc/NEWS
index 2c9f3d4e4c8fa5af9936ef5ba936579d0a770e3e..31f856601c14ceaad39c4e70fb278972b1a3d7be 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -736,6 +736,10 @@ Customizing it to 'relative' makes commands like 'project-find-file'
 and 'project-find-dir' display previous history entries relative to
 the current project.
 
+*** New user option 'project-key-prompt-style'.
+The look of the key prompt in the project switcher has been changed
+slightly.  To get the previous one, set this option to 'brackets'.
+
 \f
 * Incompatible Lisp Changes in Emacs 30.1
 

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 7c66d3e3e45b0e602d026d9afe5b91ba33bacf42..ab7376b7dc654ee7bb1a9e0d2b1820c73d3f1b90 100644 (file)
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -1071,7 +1071,9 @@ to `project-find-file' or `project-find-dir'.
 
 This has the effect of sharing more history between projects."
   :type '(choice (const t :tag "Default behavior")
-                 (const relativize :tag "Adjust to be relative to current")))
+                 (const relativize :tag "Adjust to be relative to current"))
+  :group 'project
+  :version "30.1")
 
 (defun project--transplant-file-name (filename project)
   (when-let ((old-root (get-text-property 0 'project filename)))
@@ -1902,6 +1904,17 @@ listed in the dispatch menu produced from `project-switch-commands'."
   :group 'project
   :version "28.1")
 
+(defcustom project-key-prompt-style (if (facep 'help-key-binding)
+                                        t
+                                      'brackets)
+  "Which presentation to use when asking to choose a command by key.
+
+When `brackets', use text brackets and `bold' for the character.
+Otherwise, use the face `help-key-binding' in the prompt."
+  :type 'boolean
+  :group 'project
+  :version "30.1")
+
 (defun project--keymap-prompt ()
   "Return a prompt for the project switching dispatch menu."
   (mapconcat
@@ -1914,7 +1927,7 @@ listed in the dispatch menu produced from `project-switch-commands'."
      (let ((key (if key
                     (vector key)
                   (where-is-internal cmd (list project-prefix-map) t))))
-       (if (facep 'help-key-binding)
+       (if (not (eq project-key-prompt-style 'brackets))
            (format "%s %s"
                    (propertize (key-description key) 'face 'help-key-binding)
                    label)