Use macro SPECPDL_INDEX.

diff --git a/src/macros.c b/src/macros.c
index 82e305f8df36b24819b7349330dfe0eb7e247bd1..5f6d83b52d6ac43e9c6a77a2b435ec64e365d5ce 100644 (file)
--- a/src/macros.c
+++ b/src/macros.c
@@ -284,7 +284,7 @@ COUNT is a repeat count, or nil for once, or 0 for infinite loop.  */)
 {
   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 --git a/src/xfns.c b/src/xfns.c
index 912a2ceeb05ffd1d60547e15152ba422e2d57195..920b3b13a38a2a740d38c944b05b7e20069867d3 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -11605,7 +11605,7 @@ selection dialog's entry field, if MUSTMATCH is non-nil.  */)
   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);