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 26710e6d53d8231a2c0c37d2ee4ee821ab17f458..1dfc3374ade350b3a0b446bd8f0417f4109afb76 100644 (file)
--- 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