aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
authorJim Blandy1993-03-30 21:21:49 +0000
committerJim Blandy1993-03-30 21:21:49 +0000
commitf298026408cb2c7216eeed489c01ad1f20858980 (patch)
tree29be0610b24384225591b395411e1161f6241203 /src/data.c
parent555b2421bb1cc67980a63ca581001657b788a4b4 (diff)
downloademacs-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.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)
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
1428DEFUN ("int-to-string", Fint_to_string, Sint_to_string, 1, 1, 0, 1428DEFUN ("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\
1430Uses a minus sign if negative.\n\ 1430Uses a minus sign if negative.\n\
1431NUM may be an integer or a floating point number.") 1431NUM 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);