diff options
| author | Markus Rost <rost@math.uni-bielefeld.de> | 2002-12-07 20:15:43 +0000 |
|---|---|---|
| committer | Markus Rost <rost@math.uni-bielefeld.de> | 2002-12-07 20:15:43 +0000 |
| commit | d9bfd9dccad8f55f5e31651c20696e84c8f4bca3 (patch) | |
| tree | c1ec441201b5ef434099a3e8356c0dbf588236aa /lisp/wid-edit.el | |
| parent | 087f110d7a7617d11ad6c1afd18108b4693615da (diff) | |
| download | emacs-d9bfd9dccad8f55f5e31651c20696e84c8f4bca3.tar.gz | |
(define-widget number): Clarify doc and error message.
(define-widget float): New widget.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 58cdab487f8..4e97f9ad8c2 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -3193,12 +3193,19 @@ To use this type, you must define :match or :match-alternatives." :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" |