[Emacs-diffs] Changes to emacs/src/buffer.c

[Richard M . Stallman]

Index: emacs/src/buffer.c
diff -c emacs/src/buffer.c:1.467 emacs/src/buffer.c:1.468
*** emacs/src/buffer.c:1.467    Mon Nov 29 07:16:25 2004
--- emacs/src/buffer.c  Mon Dec 27 16:07:42 2004
***************
*** 1251,1279 ****
    return buf;
  }
  
- DEFUN ("buffer-disable-undo", Fbuffer_disable_undo, Sbuffer_disable_undo,
-        0, 1, "",
-        doc: /* Make BUFFER stop keeping undo information.
- No argument or nil as argument means do this for the current buffer.  */)
-      (buffer)
-      register Lisp_Object buffer;
- {
-   Lisp_Object real_buffer;
- 
-   if (NILP (buffer))
-     XSETBUFFER (real_buffer, current_buffer);
-   else
-     {
-       real_buffer = Fget_buffer (buffer);
-       if (NILP (real_buffer))
-       nsberror (buffer);
-     }
- 
-   XBUFFER (real_buffer)->undo_list = Qt;
- 
-   return Qnil;
- }
- 
  DEFUN ("buffer-enable-undo", Fbuffer_enable_undo, Sbuffer_enable_undo,
         0, 1, "",
         doc: /* Start keeping undo information for buffer BUFFER.
--- 1251,1256 ----
***************
*** 5671,5679 ****
    DEFVAR_PER_BUFFER ("vertical-scroll-bar", 
&current_buffer->vertical_scroll_bar_type,
                     Qnil,
                     doc: /* *Position of this buffer's vertical scroll bar.
! A value of left or right means to place the vertical scroll bar at that side
! of the window; a value of nil means that this window has no vertical scroll 
bar.
! A value of t means to use the vertical scroll bar type from the window's 
frame.  */);
  
    DEFVAR_PER_BUFFER ("indicate-empty-lines",
                     &current_buffer->indicate_empty_lines, Qnil,
--- 5648,5657 ----
    DEFVAR_PER_BUFFER ("vertical-scroll-bar", 
&current_buffer->vertical_scroll_bar_type,
                     Qnil,
                     doc: /* *Position of this buffer's vertical scroll bar.
! The value takes effect whenever you display this buffer in a window.
! A value of `left' or `right' means put the vertical scroll bar at that side
! of the window; a value of nil means don't show any vertical scroll bars.
! A value of t (the default) means do whatever the window's frame specifies.  
*/);
  
    DEFVAR_PER_BUFFER ("indicate-empty-lines",
                     &current_buffer->indicate_empty_lines, Qnil,
***************
*** 5951,5957 ****
    defsubr (&Sbuffer_modified_tick);
    defsubr (&Srename_buffer);
    defsubr (&Sother_buffer);
-   defsubr (&Sbuffer_disable_undo);
    defsubr (&Sbuffer_enable_undo);
    defsubr (&Skill_buffer);
    defsubr (&Sset_buffer_major_mode);
--- 5929,5934 ----