Don't downcase the key binding in global-set-key.

This fixes bug #37769.

* lisp/subr.el (global-set-key): Provide a non-nil DONT-DOWNCASE argument to
read-key-sequence.

* etc/NEWS: Add an entry for this change.

diff --git a/etc/NEWS b/etc/NEWS
index 5794af5b601b65db6b5f595c89471592f146a048..fd46360ed23135761f9f69736f2cc6d83154233c 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -461,6 +461,11 @@ RGB triplets with a single hexadecimal digit per component.
 Note that this key binding will not work on MS-Windows systems if
 'w32-scroll-lock-modifier' is non-nil.
 
+---
+** 'global-set-key', called interactively, now no longer downcases a
+key binding with an upper case letter - if you can type it, you can
+bind it.
+
 \f
 * Editing Changes in Emacs 27.1
 

diff --git a/lisp/subr.el b/lisp/subr.el
index 1a4a2e8b81bd79fcfc21b9f0a247bf3444e4eed3..f3371dd2d7497d26ec35cd2d298ef8ee28f3a73a 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1120,7 +1120,7 @@ that local binding will continue to shadow any global binding
 that you make with this function."
   (interactive
    (let* ((menu-prompting nil)
-          (key (read-key-sequence "Set key globally: ")))
+          (key (read-key-sequence "Set key globally: " nil t)))
      (list key
            (read-command (format "Set key %s to command: "
                                  (key-description key))))))