Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/data.c	Mon Aug 13 10:29:43 2007 +0200
+++ b/src/data.c	Mon Aug 13 10:30:37 2007 +0200
@@ -128,9 +128,9 @@
 }
 
 DOESNT_RETURN
-pure_write_error (void)
+pure_write_error (Lisp_Object obj)
 {
-  error ("Attempt to modify read-only object");
+  signal_simple_error ("Attempt to modify read-only object", obj);
 }
 
 DOESNT_RETURN
@@ -1202,7 +1202,7 @@
     }
 #endif /* LISP_FLOAT_TYPE */
 
-  sprintf (buffer, "%ld", (long) (XINT (num)));
+  long_to_string (buffer, XINT (num));
   return build_string (buffer);
 }