Mercurial > emacs

diff src/lisp.h @ 695:e3fac20d3015

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Jun 1992 02:36:01 +0000
parents 70b112526394
children 86cb5db0b6c3
line wrap: on
line diff
--- a/src/lisp.h	Sun Jun 07 01:50:14 1992 +0000
+++ b/src/lisp.h	Sun Jun 07 02:36:01 1992 +0000
@@ -571,12 +571,12 @@
 
 #define CHECK_NUMBER_OR_FLOAT(x, i)	\
 { if (XTYPE (x) != Lisp_Float && XTYPE (x) != Lisp_Int)	\
-    x = wrong_type_argument (Qinteger_or_floatp, (x)); }
+    x = wrong_type_argument (Qnumberp, (x)); }
 
 #define CHECK_NUMBER_OR_FLOAT_COERCE_MARKER(x, i) \
 { if (XTYPE (x) == Lisp_Marker) XFASTINT (x) = marker_position (x);	\
   else if (XTYPE (x) != Lisp_Int && XTYPE (x) != Lisp_Float)		\
-    x = wrong_type_argument (Qinteger_or_float_or_marker_p, (x)); }
+    x = wrong_type_argument (Qnumber_or_marker_p, (x)); }
 
 #else  /* Not LISP_FLOAT_TYPE */