Do kbd-valid-p prefix comparisons case-sensitively

* lisp/subr.el (kbd-valid-p): Compare case-sensitively.

2 files changed, 3 insertions, 1 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index f2cbe363403..78709b7fa9c 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -941,7 +941,8 @@ which is
        (save-match-data
          (catch 'exit
            (let ((prefixes
-                  "\\(A-\\)?\\(C-\\)?\\(H-\\)?\\(M-\\)?\\(S-\\)?\\(s-\\)?"))
+                  "\\(A-\\)?\\(C-\\)?\\(H-\\)?\\(M-\\)?\\(S-\\)?\\(s-\\)?")
+                 (case-fold-search nil))
              (dolist (key (split-string keys " "))
                ;; Every key might have these modifiers, and they should be
                ;; in this order.
diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index 3e6a7a8bd88..238c9be1ab0 100644
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -311,6 +311,7 @@
   (should (kbd-valid-p "<mouse-1>"))
   (should (kbd-valid-p "<Scroll_Lock>"))
 
+  (should (not (kbd-valid-p "c-x")))
   (should (not (kbd-valid-p "C-xx")))
   (should (not (kbd-valid-p "M-xx")))
   (should (not (kbd-valid-p "M-x<TAB>"))))