# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1026401053 0
# Node ID b77ef572e1c97c8f8c6fb98decc482c4dd0d3d3a
# Parent  5bb364f84e70ba49e7670cfaa2c37037810e9133
Use macro SPECPDL_INDEX.

diff -r 5bb364f84e70 -r b77ef572e1c9 src/macros.c
--- a/src/macros.c	Thu Jul 11 14:26:44 2002 +0000
+++ b/src/macros.c	Thu Jul 11 15:24:13 2002 +0000
@@ -284,7 +284,7 @@
 {
   Lisp_Object final;
   Lisp_Object tem;
-  int pdlcount = specpdl_ptr - specpdl;
+  int pdlcount = SPECPDL_INDEX ();
   int repeat = 1;
   struct gcpro gcpro1;
   int success_count = 0;
diff -r 5bb364f84e70 -r b77ef572e1c9 src/xfns.c
--- a/src/xfns.c	Thu Jul 11 14:26:44 2002 +0000
+++ b/src/xfns.c	Thu Jul 11 15:24:13 2002 +0000
@@ -11605,7 +11605,7 @@
   int ac = 0;
   extern XtAppContext Xt_app_con;
   XmString dir_xmstring, pattern_xmstring;
-  int count = specpdl_ptr - specpdl;
+  int count = SPECPDL_INDEX ();
   struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
 
   GCPRO5 (prompt, dir, default_filename, mustmatch, file);