- Copyright (C) 1990, 1993, 1994 Free Software Foundation, Inc.
+ Copyright (C) 1990, 1993, 1994, 2000 Free Software Foundation, Inc.
if (NILP (pending_boundary))
pending_boundary = Fcons (Qnil, Qnil);
if (NILP (pending_boundary))
pending_boundary = Fcons (Qnil, Qnil);
if (NILP (pending_boundary))
pending_boundary = Fcons (Qnil, Qnil);
if (NILP (pending_boundary))
pending_boundary = Fcons (Qnil, Qnil);
}
DEFUN ("undo-boundary", Fundo_boundary, Sundo_boundary, 0, 0, 0,
}
DEFUN ("undo-boundary", Fundo_boundary, Sundo_boundary, 0, 0, 0,
- "Mark a boundary between units of undo.\n\
-An undo command will stop at this point,\n\
-but another undo command will undo to the previous boundary.")
- ()
+ doc: /* Mark a boundary between units of undo.
+An undo command will stop at this point,
+but another undo command will undo to the previous boundary. */)
+ ()
}
\f
DEFUN ("primitive-undo", Fprimitive_undo, Sprimitive_undo, 2, 2, 0,
}
\f
DEFUN ("primitive-undo", Fprimitive_undo, Sprimitive_undo, 2, 2, 0,
#if 0 /* This is a good feature, but would make undo-start
unable to do what is expected. */
Lisp_Object tem;
#if 0 /* This is a good feature, but would make undo-start
unable to do what is expected. */
Lisp_Object tem;
if (NILP (current_buffer->read_only))
specbind (Qinhibit_read_only, Qt);
if (NILP (current_buffer->read_only))
specbind (Qinhibit_read_only, Qt);