GNU bug report logs - #79474
[PATCH] (register-preview-info): sort registers in preview buffer

Previous Next

Full log

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Masatake YAMATO <yamato <at> redhat.com>
To: bug-gnu-emacs <at> gnu.org
Cc: yamato <at> redhat.com
Subject: [PATCH] (register-preview-info): sort registers in preview buffer
Date: Sat, 20 Sep 2025 05:02:18 +0900 (JST)

[Message part 1 (text/plain, inline)]

Hi,

This change makes the "*Register Preview*" buffer show sorted items.
This change is helpful a user find a non-occupied register.

Thanks

[0001-register-preview-info-sort-registers-in-preview-buff.patch (text/x-patch, inline)]

From 8dff73143c5001049b647303d4bd5d19a32c15e7 Mon Sep 17 00:00:00 2001
From: Masatake YAMATO <yamato <at> redhat.com>
Date: Thu, 18 Sep 2025 03:21:22 +0900
Subject: [PATCH] (register-preview-info): sort registers in preview buffer

* lisp/register.el (register-preview): Sort alist returned from
`register-of-type-alist'.
---
 etc/NEWS         | 4 ++++
 lisp/register.el | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/etc/NEWS b/etc/NEWS
index bd928345283..b57440f2e0f 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -799,6 +799,10 @@ with finer grained control.
 That was already the case for the "fancy" UI but is now also true in
 the default UI you get, i.e., when 'register-use-preview' is 'traditional'.
 
+---
+*** The "*Register Preview*" buffer shows sorted items.
+This is helpful a user find a non-occupied register.
+
 ** Tree-sitter
 
 +++
diff --git a/lisp/register.el b/lisp/register.el
index 9b2a10f02d7..7dbda04d176 100644
--- a/lisp/register.el
+++ b/lisp/register.el
@@ -246,7 +246,7 @@ register-preview
         nil
         (with-current-buffer standard-output
           (setq cursor-in-non-selected-windows nil)
-          (dolist (elem registers)
+          (dolist (elem (sort registers :key #'car))
             (when (cdr elem)
               (let ((beg (point)))
                 (insert (funcall register-preview-function elem))
-- 
2.51.0

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.