Mercurial > emacs

comparison src/data.c @ 14302:7af403b25839

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make_number): Function deleted.
author Karl Heuer <kwzh@gnu.org>
date Wed, 24 Jan 1996 23:41:28 +0000
parents 215d8ba39537
children f78162b0fc6e
comparison
equal deleted inserted replaced
14301:621f53083d60 14302:7af403b25839
133 args_out_of_range_3 (a1, a2, a3) 133 args_out_of_range_3 (a1, a2, a3)
134 Lisp_Object a1, a2, a3; 134 Lisp_Object a1, a2, a3;
135 { 135 {
136 while (1) 136 while (1)
137 Fsignal (Qargs_out_of_range, Fcons (a1, Fcons (a2, Fcons (a3, Qnil)))); 137 Fsignal (Qargs_out_of_range, Fcons (a1, Fcons (a2, Fcons (a3, Qnil))));
138 }
139
140 Lisp_Object
141 make_number (num)
142 int num;
143 {
144 register Lisp_Object val;
145 XSETINT (val, num);
146 return val;
147 } 138 }
148 139
149 /* On some machines, XINT needs a temporary location. 140 /* On some machines, XINT needs a temporary location.
150 Here it is, in case it is needed. */ 141 Here it is, in case it is needed. */
151 142