From bcf7bd8feb05914e6000b572c3e75664a9090c1a Mon Sep 17 00:00:00 2001 From: Thierry Volpiatto Date: Thu, 30 Nov 2023 10:38:52 +0100 Subject: [PATCH 2/4] Fix register-preview-default We need to print the string representation (one char) of an eventual key description e.g. "^X" instead of "C-x". * lisp/register.el (register-preview-default): Use `string' to print register. --- lisp/register.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/register.el b/lisp/register.el index 88d0e8e1d10..9b457e716f2 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -131,7 +131,7 @@ See the documentation of the variable `register-alist' for possible VALUEs." (defun register-preview-default (r) "Function that is the default value of the variable `register-preview-function'." (format "%s: %s\n" - (single-key-description (car r)) + (string (car r)) (register-describe-oneline (car r)))) (defvar register-preview-function #'register-preview-default -- 2.34.1