master c1712f5: Fix prompt for the `M-S-x' command

[Lars Ingebrigtsen]

branch: master
commit c1712f55070d1fe861517d2c1a9fe53622f0e6a6
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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.
---
 lisp/simple.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index 26710e6..1dfc337 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