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/print.c | |
| parent | e20b31732ad01d8de7605ea740525dedc3dbdb90 (diff) | |
| download | emacs-aed13378308fae471bf2c11870a456e457166c31.tar.gz | |
Use macro SPECPDL_INDEX.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/print.c b/src/print.c index 98a4c745a88..90d55615bc7 100644 --- a/src/print.c +++ b/src/print.c @@ -192,7 +192,7 @@ void print_interval (); struct buffer *old = current_buffer; \ int old_point = -1, start_point = -1; \ int old_point_byte = -1, start_point_byte = -1; \ - int specpdl_count = specpdl_ptr - specpdl; \ + int specpdl_count = SPECPDL_INDEX (); \ int free_print_buffer = 0; \ int multibyte = !NILP (current_buffer->enable_multibyte_characters); \ Lisp_Object original @@ -580,7 +580,7 @@ void temp_output_buffer_setup (bufname) char *bufname; { - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); register struct buffer *old = current_buffer; register Lisp_Object buf; @@ -613,7 +613,7 @@ internal_with_output_to_temp_buffer (bufname, function, args) Lisp_Object (*function) P_ ((Lisp_Object)); Lisp_Object args; { - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); Lisp_Object buf, val; struct gcpro gcpro1; @@ -658,7 +658,7 @@ usage: (with-output-to-temp-buffer BUFFNAME BODY ...) */) { struct gcpro gcpro1; Lisp_Object name; - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); Lisp_Object buf, val; GCPRO1(args); |