From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 15 Dec 2023 13:32:22 +0000 (+0200)
Subject: Support case-sensitive register names
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8e0882d17a38cb9d309df705e76a8e88529f30a9;p=emacs.git

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 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 "")