Mercurial > hg > xemacs-beta

comparison src/data.c @ 276:6330739388db r21-0b36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b36
author cvs
date Mon, 13 Aug 2007 10:30:37 +0200
parents c5d627a313b1
children 7df0dd720c89
comparison
equal deleted inserted replaced
275:a68ae4439f57 276:6330739388db
126 { 126 {
127 return wrong_type_argument (predicate, value); 127 return wrong_type_argument (predicate, value);
128 } 128 }
129 129
130 DOESNT_RETURN 130 DOESNT_RETURN
131 pure_write_error (void) 131 pure_write_error (Lisp_Object obj)
132 { 132 {
133 error ("Attempt to modify read-only object"); 133 signal_simple_error ("Attempt to modify read-only object", obj);
134 } 134 }
135 135
136 DOESNT_RETURN 136 DOESNT_RETURN
137 args_out_of_range (Lisp_Object a1, Lisp_Object a2) 137 args_out_of_range (Lisp_Object a1, Lisp_Object a2)
138 { 138 {
1200 float_to_string (pigbuf, float_data (XFLOAT (num))); 1200 float_to_string (pigbuf, float_data (XFLOAT (num)));
1201 return build_string (pigbuf); 1201 return build_string (pigbuf);
1202 } 1202 }
1203 #endif /* LISP_FLOAT_TYPE */ 1203 #endif /* LISP_FLOAT_TYPE */
1204 1204
1205 sprintf (buffer, "%ld", (long) (XINT (num))); 1205 long_to_string (buffer, XINT (num));
1206 return build_string (buffer); 1206 return build_string (buffer);
1207 } 1207 }
1208 1208
1209 static int 1209 static int
1210 digit_to_number (int character, int base) 1210 digit_to_number (int character, int base)