Commit 1afc022d authored by Chong Yidong's avatar Chong Yidong

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

parent d03b3d23
......@@ -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."))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment