aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/buffer.c')
-rw-r--r--src/buffer.c31
1 files changed, 4 insertions, 27 deletions
diff --git a/src/buffer.c b/src/buffer.c
index 2d931272467..38678dc5a49 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -1251,29 +1251,6 @@ If BUFFER is omitted or nil, some interesting buffer is returned. */)
1251 return buf; 1251 return buf;
1252} 1252}
1253 1253
1254DEFUN ("buffer-disable-undo", Fbuffer_disable_undo, Sbuffer_disable_undo,
1255 0, 1, "",
1256 doc: /* Make BUFFER stop keeping undo information.
1257No argument or nil as argument means do this for the current buffer. */)
1258 (buffer)
1259 register Lisp_Object buffer;
1260{
1261 Lisp_Object real_buffer;
1262
1263 if (NILP (buffer))
1264 XSETBUFFER (real_buffer, current_buffer);
1265 else
1266 {
1267 real_buffer = Fget_buffer (buffer);
1268 if (NILP (real_buffer))
1269 nsberror (buffer);
1270 }
1271
1272 XBUFFER (real_buffer)->undo_list = Qt;
1273
1274 return Qnil;
1275}
1276
1277DEFUN ("buffer-enable-undo", Fbuffer_enable_undo, Sbuffer_enable_undo, 1254DEFUN ("buffer-enable-undo", Fbuffer_enable_undo, Sbuffer_enable_undo,
1278 0, 1, "", 1255 0, 1, "",
1279 doc: /* Start keeping undo information for buffer BUFFER. 1256 doc: /* Start keeping undo information for buffer BUFFER.
@@ -5671,9 +5648,10 @@ A value of nil means to use the scroll bar width from the window's frame. */);
5671 DEFVAR_PER_BUFFER ("vertical-scroll-bar", &current_buffer->vertical_scroll_bar_type, 5648 DEFVAR_PER_BUFFER ("vertical-scroll-bar", &current_buffer->vertical_scroll_bar_type,
5672 Qnil, 5649 Qnil,
5673 doc: /* *Position of this buffer's vertical scroll bar. 5650 doc: /* *Position of this buffer's vertical scroll bar.
5674A value of left or right means to place the vertical scroll bar at that side 5651The value takes effect whenever you display this buffer in a window.
5675of the window; a value of nil means that this window has no vertical scroll bar. 5652A value of `left' or `right' means put the vertical scroll bar at that side
5676A value of t means to use the vertical scroll bar type from the window's frame. */); 5653of the window; a value of nil means don't show any vertical scroll bars.
5654A value of t (the default) means do whatever the window's frame specifies. */);
5677 5655
5678 DEFVAR_PER_BUFFER ("indicate-empty-lines", 5656 DEFVAR_PER_BUFFER ("indicate-empty-lines",
5679 &current_buffer->indicate_empty_lines, Qnil, 5657 &current_buffer->indicate_empty_lines, Qnil,
@@ -5951,7 +5929,6 @@ to the default frame line height. */);
5951 defsubr (&Sbuffer_modified_tick); 5929 defsubr (&Sbuffer_modified_tick);
5952 defsubr (&Srename_buffer); 5930 defsubr (&Srename_buffer);
5953 defsubr (&Sother_buffer); 5931 defsubr (&Sother_buffer);
5954 defsubr (&Sbuffer_disable_undo);
5955 defsubr (&Sbuffer_enable_undo); 5932 defsubr (&Sbuffer_enable_undo);
5956 defsubr (&Skill_buffer); 5933 defsubr (&Skill_buffer);
5957 defsubr (&Sset_buffer_major_mode); 5934 defsubr (&Sset_buffer_major_mode);