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") |