3412 |
(require 'facemenu) ; for facemenu-color-alist |
(require 'facemenu) ; for facemenu-color-alist |
3413 |
(let* ((prefix (buffer-substring-no-properties (widget-field-start widget) |
(let* ((prefix (buffer-substring-no-properties (widget-field-start widget) |
3414 |
(point))) |
(point))) |
3415 |
(list (or facemenu-color-alist |
(list (or facemenu-color-alist (defined-colors))) |
|
(mapcar 'list (defined-colors)))) |
|
3416 |
(completion (try-completion prefix list))) |
(completion (try-completion prefix list))) |
3417 |
(cond ((eq completion t) |
(cond ((eq completion t) |
3418 |
(message "Exact match.")) |
(message "Exact match.")) |