[elpa] externals/consult fff31b0: consult--buffer-sort-alpha: Fix sorting

[ELPA Syncer]

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

    consult--buffer-sort-alpha: Fix sorting
---
 consult.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/consult.el b/consult.el
index 1b8fadf..28d841a 100644
--- a/consult.el
+++ b/consult.el
@@ -3590,10 +3590,11 @@ The command supports previewing the currently selected 
theme."
   (sort buffers
         (lambda (x 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)))))
+          (let ((a (and (> (length x) 0) (eq (aref x 0) ?*)))
+                (b (and (> (length y) 0) (eq (aref y 0) ?*))))
+            (if (eq a b)
+                (string< x y)
+              (not a))))))
 
 (defun consult--buffer-sort-visibility (buffers)
   "Sort BUFFERS by visibility."