From 80b53a3b8dcc28d18ac9a7adacf377ebe6d23ffe Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sat, 21 Sep 2019 00:19:11 +0200
Subject: Make register-preview ignore empty registers

* lisp/register.el (register-preview): Ignore elements that are
empty (bug#37155).
---
 lisp/register.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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.
-- 
cgit v1.2.1