Commit 8c757fd7 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

parent 766a82a0
......@@ -393,8 +393,9 @@ Return what remains of the list.")
struct gcpro gcpro1, gcpro2;
Lisp_Object next;
int count = specpdl_ptr - specpdl;
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;
......@@ -415,6 +416,9 @@ Return what remains of the list.")
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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment