From 8e0882d17a38cb9d309df705e76a8e88529f30a9 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 15 Dec 2023 15:32:22 +0200 Subject: [PATCH] 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 "") -- 2.39.2