/[emacs]/emacs/lisp/wid-edit.el
ViewVC logotype

Diff of /emacs/lisp/wid-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.109 by kfstorm, Wed May 8 22:27:59 2002 UTC revision 1.110 by monnier, Mon May 20 18:28:09 2002 UTC
# Line 3412  To use this type, you must define :match Line 3412  To use this type, you must define :match
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."))

Legend:
Removed from v.1.109  
changed lines
  Added in v.1.110

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26