# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1175505396 0
# Node ID 2bce89da14ed9db032568bb5f99829cfb6def2f4
# Parent  15bef7790716e1257a61337989df2e242a434c86
(Fprin1_to_string): Use macro SPECPDL_INDEX.

diff -r 15bef7790716 -r 2bce89da14ed src/print.c
--- a/src/print.c	Mon Apr 02 04:31:30 2007 +0000
+++ b/src/print.c	Mon Apr 02 09:16:36 2007 +0000
@@ -796,7 +796,7 @@
   Lisp_Object printcharfun;
   /* struct gcpro gcpro1, gcpro2; */
   Lisp_Object save_deactivate_mark;
-  int count = specpdl_ptr - specpdl;
+  int count = SPECPDL_INDEX ();
   struct buffer *previous;
 
   specbind (Qinhibit_modification_hooks, Qt);