comparison src/buffer.c @ 5247:0cf95629f6c4

(Fbuffer_disable_undo): Make arg optional.

5246:bec1126c6c00

  if (!NILP (notsogood))
    return notsogood;
  return Fget_buffer_create (build_string ("*scratch*"));
}

DEFUN ("buffer-disable-undo", Fbuffer_disable_undo, Sbuffer_disable_undo, 1,1,
0,
  "Make BUFFER stop keeping undo information.")
  (buffer)
     register Lisp_Object buffer;
{
  Lisp_Object real_buffer;

5247:0cf95629f6c4

  if (!NILP (notsogood))
    return notsogood;
  return Fget_buffer_create (build_string ("*scratch*"));
}

DEFUN ("buffer-disable-undo", Fbuffer_disable_undo, Sbuffer_disable_undo, 0, 1,
0,
  "Make BUFFER stop keeping undo information.\n\
No argument or nil as argument means do this for the current buffer.")
  (buffer)
     register Lisp_Object buffer;
{
  Lisp_Object real_buffer;