diff options
| -rw-r--r-- | lisp/register.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/register.el b/lisp/register.el index 775e1a2cc92..b4d9d0d01c7 100644 --- a/lisp/register.el +++ b/lisp/register.el @@ -139,7 +139,10 @@ Format of each entry is controlled by the variable `register-preview-function'." nil (with-current-buffer standard-output (setq cursor-in-non-selected-windows nil) - (insert (mapconcat register-preview-function register-alist "")))))) + (mapc (lambda (elem) + (when (get-register (car elem)) + (insert (funcall register-preview-function elem)))) + register-alist))))) (defun register-read-with-preview (prompt) "Read and return a register name, possibly showing existing registers. |