diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-12-21 16:56:13 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-12-21 16:56:13 +0000 |
| commit | 8c757fd783f2e89b47255d85aea6aa785e6045a8 (patch) | |
| tree | 5d52ae6c2007735b21d2e332f4502b50c7b94624 /src/undo.c | |
| parent | 766a82a0e1ef93b2a8c502419f260790052516a5 (diff) | |
| download | emacs-8c757fd783f2e89b47255d85aea6aa785e6045a8.tar.gz | |
(Fprimitive_undo): Bind `inhibit-point-motion-hooks' to t.
Diffstat (limited to 'src/undo.c')
| -rw-r--r-- | src/undo.c | 6 |
1 files changed, 5 insertions, 1 deletions
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) |