# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1039292143 0
# Node ID e84d99848b763a879ee4200386b05e0f8ea84293
# Parent  d2536f0e2afd5f327dd550cd1665fc022ebb77c5
(define-widget number): Clarify doc and error message.
(define-widget float): New widget.

diff -r d2536f0e2afd -r e84d99848b76 lisp/wid-edit.el
--- 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"