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/buffer.c | |
| parent | e20b31732ad01d8de7605ea740525dedc3dbdb90 (diff) | |
| download | emacs-aed13378308fae471bf2c11870a456e457166c31.tar.gz emacs-aed13378308fae471bf2c11870a456e457166c31.tar.bz2 emacs-aed13378308fae471bf2c11870a456e457166c31.zip | |
Use macro SPECPDL_INDEX.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/buffer.c b/src/buffer.c index e371b3133ae..a5bc8532cfb 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -1297,7 +1297,7 @@ with SIGHUP. */) /* Run hooks with the buffer to be killed the current buffer. */ { - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); Lisp_Object list; record_unwind_protect (save_excursion_restore, save_excursion_save ()); @@ -1548,7 +1548,7 @@ the current buffer's major mode. */) if (NILP (function) || EQ (function, Qfundamental_mode)) return Qnil; - count = specpdl_ptr - specpdl; + count = SPECPDL_INDEX (); /* To select a nonfundamental mode, select the buffer temporarily and then call the mode function. */ @@ -3586,7 +3586,7 @@ buffer. */) { struct buffer *b, *ob; Lisp_Object obuffer; - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); CHECK_OVERLAY (overlay); if (NILP (buffer)) @@ -3687,7 +3687,7 @@ DEFUN ("delete-overlay", Fdelete_overlay, Sdelete_overlay, 1, 1, 0, { Lisp_Object buffer; struct buffer *b; - int count = specpdl_ptr - specpdl; + int count = SPECPDL_INDEX (); CHECK_OVERLAY (overlay); |