/[emacs]/emacs/src/buffer.c
ViewVC logotype

Diff of /emacs/src/buffer.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.390 by rms, Sun Jul 7 10:17:26 2002 UTC revision 1.391 by lektu, Thu Jul 11 14:08:13 2002 UTC
# Line 1297  with SIGHUP.  */) Line 1297  with SIGHUP.  */)
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 ());
# Line 1548  the current buffer's major mode.  */) Line 1548  the current buffer's major mode.  */)
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. */
# Line 3586  buffer.  */) Line 3586  buffer.  */)
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))
# Line 3687  DEFUN ("delete-overlay", Fdelete_overlay Line 3687  DEFUN ("delete-overlay", Fdelete_overlay
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    

Legend:
Removed from v.1.390  
changed lines
  Added in v.1.391

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26