Make list-colors-display sort list passed as argument

* lisp/facemenu.el (list-colors-display): Don't skip sorting list of
colors if it was passed as an argument.  (Bug#51371)
This commit is contained in:
dalanicolai
2021-10-30 17:32:17 +02:00
committed by Stefan Kangas
parent c23cb2861e
commit eb07b3d9b3

View File

@@ -551,8 +551,8 @@ If the optional argument CALLBACK is non-nil, it should be a
function to call each time the user types RET or clicks on a
color. The function should accept a single argument, the color name."
(interactive)
(when (and (null list) (> (display-color-cells) 0))
(setq list (list-colors-duplicates (defined-colors)))
(when (> (display-color-cells) 0)
(setq list (list-colors-duplicates (or list (defined-colors))))
(when list-colors-sort
;; Schwartzian transform with `(color key1 key2 key3 ...)'.
(setq list (mapcar