Function: consult--buffer-sort-alpha

consult--buffer-sort-alpha is a byte-compiled function defined in consult.el.

Signature

(consult--buffer-sort-alpha BUFFERS)

Documentation

Sort BUFFERS alphabetically, put starred buffers at the end.

Source Code

;; Defined in ~/.emacs.d/elpa/consult-20260805.1130/consult.el
;;;;; Command: consult-buffer

(defun consult--buffer-sort-alpha (buffers)
  "Sort BUFFERS alphabetically, put starred buffers at the end."
  (sort buffers
        (lambda (x y)
          (setq x (buffer-name x) y (buffer-name 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))))))