Support case-sensitive register names

* lisp/register.el (register-read-with-preview): Make register
names case-sensitive.  (Bug#66394)

diff --git a/lisp/register.el b/lisp/register.el
index fa4bbcf483fa0747d26d45af521f2139eadfaf3c..ef529cd67e5c81a2cfb697d6f7a70b3e70a18a80 100644 (file)
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -383,7 +383,12 @@ display such a window regardless."
                                 (setq pat input))))
                           (if (setq win (get-buffer-window buffer))
                               (with-selected-window win
-                                (let ((ov (make-overlay (point-min) (point-min))))
+                                (let ((ov (make-overlay
+                                           (point-min) (point-min)))
+                                      ;; Allow upper-case and
+                                      ;; lower-case letters to refer
+                                      ;; to different registers.
+                                      (case-fold-search nil))
                                   (goto-char (point-min))
                                   (remove-overlays)
                                   (unless (string= pat "")