[elpa] externals/consult 2043795 2/2: consult--buffer-sort-alpha: Sort *buffer* behind buffer

[ELPA Syncer]

branch: externals/consult
commit 20437958209bb2eff76e273138eb08d4ae1b2609
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    consult--buffer-sort-alpha: Sort *buffer* behind buffer
---
 consult.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/consult.el b/consult.el
index c66956d..1b8fadf 100644
--- a/consult.el
+++ b/consult.el
@@ -3586,11 +3586,14 @@ The command supports previewing the currently selected 
theme."
 ;;;;; Command: consult-buffer
 
 (defun consult--buffer-sort-alpha (buffers)
-  "Sort BUFFERS alphabetically."
+  "Sort BUFFERS alphabetically, but push down starred buffers."
   (sort buffers
         (lambda (x y)
-          (string< (buffer-name x)
-                   (buffer-name y)))))
+          (setq x (buffer-name x) y (buffer-name y))
+          (or
+           (and (> (length y) 0) (eq (aref y 0) ?*)
+                (not (and (> (length x) 0) (eq (aref x 0) ?*))))
+           (string< x y)))))
 
 (defun consult--buffer-sort-visibility (buffers)
   "Sort BUFFERS by visibility."