summaryrefslogtreecommitdiff
path: root/src/data.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@redhat.com>1993-03-30 21:21:49 +0000
committerJim Blandy <jimb@redhat.com>1993-03-30 21:21:49 +0000
commitb89f5a68e57172832913902651f5259e5392e83e (patch)
tree04ba86e8321844341fe3934ac243162a72c3ae5d /src/data.c
parent35067a1bee16f01a394d443dd92e5fd4eb342433 (diff)
downloademacs-b89f5a68e57172832913902651f5259e5392e83e.tar.gz
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.c6
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)
(EQ (predicate, Qintegerp) || EQ (predicate, Qinteger_or_marker_p)))
return Fstring_to_number (value);
if (XTYPE (value) == Lisp_Int && EQ (predicate, Qstringp))
- return Fint_to_string (value);
+ return Fnumber_to_string (value);
}
value = Fsignal (Qwrong_type_argument, Fcons (predicate, Fcons (value, Qnil)));
tem = call1 (predicate, value);
@@ -1425,7 +1425,7 @@ DEFUN ("zerop", Fzerop, Szerop, 1, 1, 0, "T if NUMBER is zero.")
return Qnil;
}
-DEFUN ("int-to-string", Fint_to_string, Sint_to_string, 1, 1, 0,
+DEFUN ("number-to-string", Fnumber_to_string, Snumber_to_string, 1, 1, 0,
"Convert NUM to a string by printing it in decimal.\n\
Uses a minus sign if negative.\n\
NUM may be an integer or a floating point number.")
@@ -2121,7 +2121,7 @@ syms_of_data ()
defsubr (&Skill_local_variable);
defsubr (&Saref);
defsubr (&Saset);
- defsubr (&Sint_to_string);
+ defsubr (&Snumber_to_string);
defsubr (&Sstring_to_number);
defsubr (&Seqlsign);
defsubr (&Slss);