From: Chong Yidong <cyd@stupidchicken.com>
Date: Sat, 25 Oct 2008 18:34:41 +0000 (+0000)
Subject: (widget-color-complete): Sort completions alphabetically.
X-Git-Tag: emacs-pretest-23.0.90~2184
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1afc022db0de05e47016911e4374d5f88ea87a38;p=emacs.git

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

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."))