diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/data.c b/src/data.c index fe71c6768cb..4b2fa3cebbf 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -72,7 +72,7 @@ wrong_type_argument (predicate, value) | |||
| 72 | (EQ (predicate, Qintegerp) || EQ (predicate, Qinteger_or_marker_p))) | 72 | (EQ (predicate, Qintegerp) || EQ (predicate, Qinteger_or_marker_p))) |
| 73 | return Fstring_to_number (value); | 73 | return Fstring_to_number (value); |
| 74 | if (XTYPE (value) == Lisp_Int && EQ (predicate, Qstringp)) | 74 | if (XTYPE (value) == Lisp_Int && EQ (predicate, Qstringp)) |
| 75 | return Fint_to_string (value); | 75 | return Fnumber_to_string (value); |
| 76 | } | 76 | } |
| 77 | value = Fsignal (Qwrong_type_argument, Fcons (predicate, Fcons (value, Qnil))); | 77 | value = Fsignal (Qwrong_type_argument, Fcons (predicate, Fcons (value, Qnil))); |
| 78 | tem = call1 (predicate, value); | 78 | tem = call1 (predicate, value); |
| @@ -1425,7 +1425,7 @@ DEFUN ("zerop", Fzerop, Szerop, 1, 1, 0, "T if NUMBER is zero.") | |||
| 1425 | return Qnil; | 1425 | return Qnil; |
| 1426 | } | 1426 | } |
| 1427 | 1427 | ||
| 1428 | DEFUN ("int-to-string", Fint_to_string, Sint_to_string, 1, 1, 0, | 1428 | DEFUN ("number-to-string", Fnumber_to_string, Snumber_to_string, 1, 1, 0, |
| 1429 | "Convert NUM to a string by printing it in decimal.\n\ | 1429 | "Convert NUM to a string by printing it in decimal.\n\ |
| 1430 | Uses a minus sign if negative.\n\ | 1430 | Uses a minus sign if negative.\n\ |
| 1431 | NUM may be an integer or a floating point number.") | 1431 | NUM may be an integer or a floating point number.") |
| @@ -2121,7 +2121,7 @@ syms_of_data () | |||
| 2121 | defsubr (&Skill_local_variable); | 2121 | defsubr (&Skill_local_variable); |
| 2122 | defsubr (&Saref); | 2122 | defsubr (&Saref); |
| 2123 | defsubr (&Saset); | 2123 | defsubr (&Saset); |
| 2124 | defsubr (&Sint_to_string); | 2124 | defsubr (&Snumber_to_string); |
| 2125 | defsubr (&Sstring_to_number); | 2125 | defsubr (&Sstring_to_number); |
| 2126 | defsubr (&Seqlsign); | 2126 | defsubr (&Seqlsign); |
| 2127 | defsubr (&Slss); | 2127 | defsubr (&Slss); |