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.

diff --git a/lisp/register.el b/lisp/register.el
index 88d0e8e1d104aca40c633d331f681c6a4b8f196b..46ec38821e557b6e1e1e4f4389f1cd3e55b37460 100644 (file)
--- 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