# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1224959681 0
# Node ID 5e119ed8e19b4da7b240d65487c3c35c9b4cbb46
# Parent  be46fd14df8a8560715f34419da25b3431d7503f
(widget-color-complete): Sort completions alphabetically.

diff -r be46fd14df8a -r 5e119ed8e19b lisp/wid-edit.el
--- a/lisp/wid-edit.el	Sat Oct 25 18:28:42 2008 +0000
+++ b/lisp/wid-edit.el	Sat Oct 25 18:34:41 2008 +0000
@@ -3742,7 +3742,8 @@
   (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."))