diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2008-10-25 18:34:41 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2008-10-25 18:34:41 +0000 |
| commit | 1afc022db0de05e47016911e4374d5f88ea87a38 (patch) | |
| tree | 5fc714e3b3dca30eff5457f86980a0e9521712cf | |
| parent | d03b3d23878840ada9fd34ff9a6003a8446258f7 (diff) | |
| download | emacs-1afc022db0de05e47016911e4374d5f88ea87a38.tar.gz | |
(widget-color-complete): Sort completions alphabetically.
| -rw-r--r-- | lisp/wid-edit.el | 3 |
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.")) |