From d9bfd9dccad8f55f5e31651c20696e84c8f4bca3 Mon Sep 17 00:00:00 2001
From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Sat, 7 Dec 2002 20:15:43 +0000
Subject: [PATCH] (define-widget number): Clarify doc and error message.
 (define-widget float): New widget.

---
 lisp/wid-edit.el | 11 +++++++++--
 1 file 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"
-- 
2.39.2