aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordalanicolai2021-10-30 17:32:17 +0200
committerStefan Kangas2021-10-30 17:34:08 +0200
commiteb07b3d9b3e05b6863fa61ea3b022f2184ec5c82 (patch)
tree7720616b6136dad77e46a943b682e64521faeb40
parentc23cb2861eab646498d2d7d28a8d46f4de91ebb3 (diff)
downloademacs-eb07b3d9b3e05b6863fa61ea3b022f2184ec5c82.tar.gz
emacs-eb07b3d9b3e05b6863fa61ea3b022f2184ec5c82.zip
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)
-rw-r--r--lisp/facemenu.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 7417bb12030..fe458b8c07b 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -551,8 +551,8 @@ If the optional argument CALLBACK is non-nil, it should be a
551function to call each time the user types RET or clicks on a 551function to call each time the user types RET or clicks on a
552color. The function should accept a single argument, the color name." 552color. The function should accept a single argument, the color name."
553 (interactive) 553 (interactive)
554 (when (and (null list) (> (display-color-cells) 0)) 554 (when (> (display-color-cells) 0)
555 (setq list (list-colors-duplicates (defined-colors))) 555 (setq list (list-colors-duplicates (or list (defined-colors))))
556 (when list-colors-sort 556 (when list-colors-sort
557 ;; Schwartzian transform with `(color key1 key2 key3 ...)'. 557 ;; Schwartzian transform with `(color key1 key2 key3 ...)'.
558 (setq list (mapcar 558 (setq list (mapcar