comparison src/undo.c @ 59864:385699a0ff01

(Fprimitive_undo): Fix dummy apply undo entry.

59863:3ffcc76427cd

		      cdr = Fcdr (Fcdr (Fcdr (cdr)));
		      car = Fcar (cdr);
		    }
		  cdr = Fcdr (cdr);
		  apply1 (car, cdr);
		  /* Make sure this produces at least one undo entry,
		     so the test in `undo' for continuing an undo series
		     will work right.  */
		  if (EQ (oldlist, current_buffer->undo_list))
		    current_buffer->undo_list
		      = Fcons (list2 (Qcdr, Qnil), current_buffer->undo_list);
		}
	      else if (STRINGP (car) && INTEGERP (cdr))
		{
		  /* Element (STRING . POS) means STRING was deleted.  */
		  Lisp_Object membuf;

59864:385699a0ff01

		      cdr = Fcdr (Fcdr (Fcdr (cdr)));
		      car = Fcar (cdr);
		    }
		  cdr = Fcdr (cdr);
		  apply1 (car, cdr);

		  /* Make sure this produces at least one undo entry,
		     so the test in `undo' for continuing an undo series
		     will work right.  */
		  if (EQ (oldlist, current_buffer->undo_list))
		    current_buffer->undo_list
		      = Fcons (list3 (Qapply, Qcdr, Qnil), current_buffer->undo_list);
		}
	      else if (STRINGP (car) && INTEGERP (cdr))
		{
		  /* Element (STRING . POS) means STRING was deleted.  */
		  Lisp_Object membuf;