diff options
| author | Jim Blandy | 1993-03-30 21:21:49 +0000 |
|---|---|---|
| committer | Jim Blandy | 1993-03-30 21:21:49 +0000 |
| commit | f298026408cb2c7216eeed489c01ad1f20858980 (patch) | |
| tree | 29be0610b24384225591b395411e1161f6241203 /src/data.c | |
| parent | 555b2421bb1cc67980a63ca581001657b788a4b4 (diff) | |
| download | emacs-f298026408cb2c7216eeed489c01ad1f20858980.tar.gz emacs-f298026408cb2c7216eeed489c01ad1f20858980.zip | |
Rename int-to-string to number-to-string, since it can handle
floating-point as well as integer arguments. subr.el defines the
former as an alias for the latter.
* data.c (Fnumber_to_string): Renamed from Fint_to_string.
(wrong_type_argument): Adjust caller.
(syms_of_data): Adjust defsubr.
* fns.c (concat): Adjust caller.
* lisp.h (Fnumber_to_string): Adjust extern declaration.
* mocklisp.c (Finsert_string): Adjust caller.
* process.c (status_message): Adjust caller.
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); |