master 0fa70dad21d 2/5: Fix register-preview-default

[Thierry Volpiatto]

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