From 1afc022db0de05e47016911e4374d5f88ea87a38 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 25 Oct 2008 18:34:41 +0000 Subject: [PATCH] (widget-color-complete): Sort completions alphabetically. --- lisp/wid-edit.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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.")) -- 2.39.2