master 8e0882d17a3: Support case-sensitive register names

[Eli Zaretskii]

branch: master
commit 8e0882d17a38cb9d309df705e76a8e88529f30a9
Author: Eli Zaretskii <eliz@gnu.org>
Commit: Eli Zaretskii <eliz@gnu.org>

    Support case-sensitive register names
    
    * lisp/register.el (register-read-with-preview): Make register
    names case-sensitive.  (Bug#66394)
---
 lisp/register.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/register.el b/lisp/register.el
index fa4bbcf483f..ef529cd67e5 100644
--- 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 "")