1297 |
|
|
1298 |
/* Run hooks with the buffer to be killed the current buffer. */ |
/* Run hooks with the buffer to be killed the current buffer. */ |
1299 |
{ |
{ |
1300 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
1301 |
Lisp_Object list; |
Lisp_Object list; |
1302 |
|
|
1303 |
record_unwind_protect (save_excursion_restore, save_excursion_save ()); |
record_unwind_protect (save_excursion_restore, save_excursion_save ()); |
1548 |
if (NILP (function) || EQ (function, Qfundamental_mode)) |
if (NILP (function) || EQ (function, Qfundamental_mode)) |
1549 |
return Qnil; |
return Qnil; |
1550 |
|
|
1551 |
count = specpdl_ptr - specpdl; |
count = SPECPDL_INDEX (); |
1552 |
|
|
1553 |
/* To select a nonfundamental mode, |
/* To select a nonfundamental mode, |
1554 |
select the buffer temporarily and then call the mode function. */ |
select the buffer temporarily and then call the mode function. */ |
3586 |
{ |
{ |
3587 |
struct buffer *b, *ob; |
struct buffer *b, *ob; |
3588 |
Lisp_Object obuffer; |
Lisp_Object obuffer; |
3589 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
3590 |
|
|
3591 |
CHECK_OVERLAY (overlay); |
CHECK_OVERLAY (overlay); |
3592 |
if (NILP (buffer)) |
if (NILP (buffer)) |
3687 |
{ |
{ |
3688 |
Lisp_Object buffer; |
Lisp_Object buffer; |
3689 |
struct buffer *b; |
struct buffer *b; |
3690 |
int count = specpdl_ptr - specpdl; |
int count = SPECPDL_INDEX (); |
3691 |
|
|
3692 |
CHECK_OVERLAY (overlay); |
CHECK_OVERLAY (overlay); |
3693 |
|
|