Mercurial > emacs
changeset 48707:e84d99848b76
(define-widget number): Clarify doc and error message.
(define-widget float): New widget.
| author | Markus Rost <rost@math.uni-bielefeld.de> |
|---|---|
| date | Sat, 07 Dec 2002 20:15:43 +0000 |
| parents | d2536f0e2afd |
| children | 34e570bbdd18 |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 9 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/wid-edit.el Sat Dec 07 19:05:03 2002 +0000 +++ b/lisp/wid-edit.el Sat Dec 07 20:15:43 2002 +0000 @@ -3193,12 +3193,19 @@ :match-alternatives '(integerp)) (define-widget 'number 'restricted-sexp - "A floating point number." + "A number (floating point or integer)." :tag "Number" :value 0.0 - :type-error "This field should contain a number" + :type-error "This field should contain a number (floating point or integer)" :match-alternatives '(numberp)) +(define-widget 'float 'restricted-sexp + "A floating point number." + :tag "Floating point number" + :value 0.0 + :type-error "This field should contain a floating point number" + :match-alternatives '(floatp)) + (define-widget 'character 'editable-field "A character." :tag "Character"