diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-02-22 15:32:34 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-02-22 15:32:34 +0100 |
| commit | c1712f55070d1fe861517d2c1a9fe53622f0e6a6 (patch) | |
| tree | a2aa7908297adda44d4977e63a6276998d8544a5 /lisp | |
| parent | 331e49df4577f6c3542a9fcf7275f7c6eff3250d (diff) | |
| download | emacs-c1712f55070d1fe861517d2c1a9fe53622f0e6a6.tar.gz | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 3 insertions, 1 deletions
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 |