diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2002-07-11 14:18:02 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2002-07-11 14:18:02 +0000 |
| commit | aed13378308fae471bf2c11870a456e457166c31 (patch) | |
| tree | 89ee2f5aaffc88a04531e85b1c1da979f17483f2 /src/lread.c | |
| parent | e20b31732ad01d8de7605ea740525dedc3dbdb90 (diff) | |
| download | emacs-aed13378308fae471bf2c11870a456e457166c31.tar.gz | |
Use macro SPECPDL_INDEX.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/lread.c b/src/lread.c index e40d5680c86..aaab4fd8f64 100644 --- a/src/lread.c +++ b/src/lread.c @@ -660,7 +660,7 @@ Return t if file exists. */) register FILE *stream; register int fd = -1; register Lisp_Object lispstream; - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); Lisp_Object temp; struct gcpro gcpro1; Lisp_Object found, efound; @@ -1271,7 +1271,7 @@ readevalloop (readcharfun, stream, sourcename, evalfun, printflag, unibyte, read { register int c; register Lisp_Object val; - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); struct gcpro gcpro1; struct buffer *b = 0; int continue_reading_p; @@ -1313,7 +1313,7 @@ readevalloop (readcharfun, stream, sourcename, evalfun, printflag, unibyte, read if (!NILP (Vpurify_flag) && c == '(') { - int count1 = specpdl_ptr - specpdl; + int count1 = SPECPDL_INDEX (); record_unwind_protect (unreadpure, Qnil); val = read_list (-1, readcharfun); unbind_to (count1, Qnil); @@ -1379,7 +1379,7 @@ This function preserves the position of point. */) (buffer, printflag, filename, unibyte, do_allow_print) Lisp_Object buffer, printflag, filename, unibyte, do_allow_print; { - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); Lisp_Object tem, buf; if (NILP (buffer)) @@ -1421,7 +1421,7 @@ This function does not move point. */) (start, end, printflag, read_function) Lisp_Object start, end, printflag, read_function; { - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); Lisp_Object tem, cbuf; cbuf = Fcurrent_buffer (); |