(widget-color-complete): Sort completions alphabetically.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index be024393a74..7323332ad2b 100644
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -3742,7 +3742,8 @@ example:
   (require 'facemenu)                   ; for facemenu-color-alist
   (let* ((prefix (buffer-substring-no-properties (widget-field-start widget)
                                                  (point)))
-         (list (or facemenu-color-alist (defined-colors)))
+         (list (or facemenu-color-alist
+                   (sort (defined-colors) 'string-lessp)))
          (completion (try-completion prefix list)))
     (cond ((eq completion t)
            (message "Exact match."))