[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0fa70dad21d 2/5: Fix register-preview-default
From: |
Thierry Volpiatto |
Subject: |
master 0fa70dad21d 2/5: Fix register-preview-default |
Date: |
Sat, 2 Dec 2023 03:04:37 -0500 (EST) |
branch: master
commit 0fa70dad21d3475d3a5dae54a09d8a9e60b668ae
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
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