changeset 46295:b77ef572e1c9

Use macro SPECPDL_INDEX.
author Juanma Barranquero <lekktu@gmail.com>
date Thu, 11 Jul 2002 15:24:13 +0000
parents 5bb364f84e70
children 8bc526e9d28b
files src/macros.c src/xfns.c
diffstat 2 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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;
--- 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);