Mercurial > emacs
diff src/callint.c @ 621:eca8812e61cd
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Fri, 24 Apr 1992 08:11:54 +0000 |
| parents | cde1f15848c6 |
| children | 7286b5bbeee4 |
line wrap: on
line diff
--- a/src/callint.c Fri Apr 24 08:11:28 1992 +0000 +++ b/src/callint.c Fri Apr 24 08:11:54 1992 +0000 @@ -408,12 +408,7 @@ case 'n': /* Read number from minibuffer. */ do args[i] = Fread_minibuffer (build_string (prompt), Qnil); -#ifdef LISP_FLOAT_TYPE - while (XTYPE (args[i]) != Lisp_Int - && XTYPE (args[i]) != Lisp_Float); -#else - while (XTYPE (args[i]) != Lisp_Int); -#endif + while (! NUMBERP (args[i])); visargs[i] = last_minibuf_string; break;