From 0fa70dad21d3475d3a5dae54a09d8a9e60b668ae 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". However the key description is still displayed in a display property. * lisp/register.el (register-preview-default): Use `string' to print register. --- lisp/register.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/register.el b/lisp/register.el index 88d0e8e1d10..46ec38821e5 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -131,7 +131,8 @@ 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)) + (propertize (string (car r)) + 'display (single-key-description (car r))) (register-describe-oneline (car r)))) (defvar register-preview-function #'register-preview-default -- 2.34.1