comparison src/undo.c @ 34794:12ca043196d7

(Fprimitive_undo): Bind `inhibit-point-motion-hooks' to t.

34793:ddeab24202fc

  (n, list)
     Lisp_Object n, list;
{
  struct gcpro gcpro1, gcpro2;
  Lisp_Object next;
  int count = specpdl_ptr - specpdl;
  register int arg;
#if 0  /* This is a good feature, but would make undo-start
	  unable to do what is expected.  */
  Lisp_Object tem;

  /* If the head of the list is a boundary, it is the boundary

  GCPRO2 (next, list);

  /* Don't let read-only properties interfere with undo.  */
  if (!NILP (current_buffer->read_only))
    specbind (Qinhibit_read_only, Qt);

  while (arg > 0)
    {
      while (1)
	{

34794:12ca043196d7

  (n, list)
     Lisp_Object n, list;
{
  struct gcpro gcpro1, gcpro2;
  Lisp_Object next;
  int count = BINDING_STACK_SIZE ();
  register int arg;
  
#if 0  /* This is a good feature, but would make undo-start
	  unable to do what is expected.  */
  Lisp_Object tem;

  /* If the head of the list is a boundary, it is the boundary

  GCPRO2 (next, list);

  /* Don't let read-only properties interfere with undo.  */
  if (!NILP (current_buffer->read_only))
    specbind (Qinhibit_read_only, Qt);

  /* Don't let `intangible' properties interfere with undo.  */
  specbind (Qinhibit_point_motion_hooks, Qt);

  while (arg > 0)
    {
      while (1)
	{