From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 21 Dec 2000 16:56:13 +0000 (+0000)
Subject: (Fprimitive_undo): Bind `inhibit-point-motion-hooks' to t.
X-Git-Tag: emacs-pretest-21.0.95~338
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8c757fd783f2e89b47255d85aea6aa785e6045a8;p=emacs.git

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

diff --git a/src/undo.c b/src/undo.c
index 31d7c39db14..40cebbac6ed 100644
--- a/src/undo.c
+++ b/src/undo.c
@@ -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)