Mercurial > emacs
changeset 99134:5e119ed8e19b
(widget-color-complete): Sort completions alphabetically.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 25 Oct 2008 18:34:41 +0000 |
| parents | be46fd14df8a |
| children | d5bebbe40609 |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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."))