[Top][All Lists]

[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 
 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 
   (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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]