Mercurial > emacs
comparison lisp/wid-edit.el @ 88996:fe13096d1829
(character): Use characterp.
author | Dave Love <fx@gnu.org> |
---|---|
date | Sun, 18 Aug 2002 13:34:52 +0000 |
parents | 683707b691b8 |
children | 49f9e4204d1b |
comparison
equal
deleted
inserted
replaced
88995:ef6383763076 | 88996:fe13096d1829 |
---|---|
3185 :value-to-external (lambda (widget value) | 3185 :value-to-external (lambda (widget value) |
3186 (if (stringp value) | 3186 (if (stringp value) |
3187 (aref value 0) | 3187 (aref value 0) |
3188 value)) | 3188 value)) |
3189 :match (lambda (widget value) | 3189 :match (lambda (widget value) |
3190 (char-valid-p value))) | 3190 (characterp value))) |
3191 | 3191 |
3192 (define-widget 'list 'group | 3192 (define-widget 'list 'group |
3193 "A Lisp list." | 3193 "A Lisp list." |
3194 :tag "List" | 3194 :tag "List" |
3195 :format "%{%t%}:\n%v") | 3195 :format "%{%t%}:\n%v") |