Mercurial > emacs
diff src/editfns.c @ 46293:1fb8f75062c6
Use macro SPECPDL_INDEX.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 11 Jul 2002 14:18:02 +0000 |
parents | 1a623890a487 |
children | 40db0673e6f0 |
line wrap: on
line diff
--- a/src/editfns.c Wed Jul 10 11:08:01 2002 +0000 +++ b/src/editfns.c Thu Jul 11 14:18:02 2002 +0000 @@ -851,7 +851,7 @@ Lisp_Object args; { register Lisp_Object val; - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); record_unwind_protect (save_excursion_restore, save_excursion_save ()); @@ -867,7 +867,7 @@ Lisp_Object args; { Lisp_Object val; - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); record_unwind_protect (set_buffer_if_live, Fcurrent_buffer ()); @@ -2482,7 +2482,7 @@ int changed = 0; unsigned char fromstr[MAX_MULTIBYTE_LENGTH], tostr[MAX_MULTIBYTE_LENGTH]; unsigned char *p; - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); #define COMBINING_NO 0 #define COMBINING_BEFORE 1 #define COMBINING_AFTER 2 @@ -2894,7 +2894,7 @@ Lisp_Object body; { register Lisp_Object val; - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); record_unwind_protect (save_restriction_restore, save_restriction_save ()); val = Fprogn (body);