From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 22 Feb 2021 14:32:34 +0000 (+0100)
Subject: Fix prompt for the `M-S-x' command
X-Git-Tag: emacs-28.0.90~3607
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c1712f55070d1fe861517d2c1a9fe53622f0e6a6;p=emacs.git

Fix prompt for the `M-S-x' command

* lisp/simple.el (read-extended-command): Further kludge the
hard-coded "M-x" prompt for the new `M-S-x' command.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 26710e6d53d..1dfc3374ade 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1980,7 +1980,9 @@ This function uses the `read-extended-command-predicate' user option."
 	       ;; but actually a prompt other than "M-x" would be confusing,
 	       ;; because "M-x" is a well-known prompt to read a command
 	       ;; and it serves as a shorthand for "Extended command: ".
-	       "M-x ")
+               (if (memq 'shift (event-modifiers last-command-event))
+	           "M-X "
+	         "M-x "))
        (lambda (string pred action)
          (if (and suggest-key-bindings (eq action 'metadata))
 	     '(metadata