diff options
author | Phillip Lord <phillip.lord@russet.org.uk> | 2015-11-25 21:39:49 +0000 |
---|---|---|
committer | Phillip Lord <phillip.lord@russet.org.uk> | 2015-11-25 21:39:49 +0000 |
commit | 957b05c615ee749b569d9fa2b214b2a2d8fa9bda (patch) | |
tree | 132afd0ca9d54409e43b96cdec21b9b96852990f /src/undo.c | |
parent | 8f2a5a8aa487036006b7590c896cde30157ca7e0 (diff) | |
download | emacs-957b05c615ee749b569d9fa2b214b2a2d8fa9bda.tar.gz |
run_undoable_changes now called from insdel.
The original calls from inside undo.c are not always at a safe position
to call lisp, as they originate in varied positions within insdel.c.
Calling them directly from prepare_to_modify_buffer_1 ensures that they
are always run at the same point.
* undo.c (run_undoable_changes,syms_of_undo): Remove function
and symbol used.
* insdel.c (run_undoable_changes): Add function and symbol.
Diffstat (limited to 'src/undo.c')
-rw-r--r-- | src/undo.c | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/src/undo.c b/src/undo.c index 214beaeb9ea..104c3bb3fc4 100644 --- a/src/undo.c +++ b/src/undo.c @@ -34,12 +34,6 @@ static ptrdiff_t last_boundary_position; an undo-boundary. */ static Lisp_Object pending_boundary; -static void -run_undoable_change (void) -{ - call0 (Qundo_auto__undoable_change); -} - /* Record point as it was at beginning of this command (if necessary) and prepare the undo info for recording a change. PT is the position of point that will naturally occur as a result of the @@ -58,8 +52,6 @@ record_point (ptrdiff_t pt) if (NILP (pending_boundary)) pending_boundary = Fcons (Qnil, Qnil); - run_undoable_change (); - at_boundary = ! CONSP (BVAR (current_buffer, undo_list)) || NILP (XCAR (BVAR (current_buffer, undo_list))); @@ -130,8 +122,6 @@ record_marker_adjustments (ptrdiff_t from, ptrdiff_t to) if (NILP (pending_boundary)) pending_boundary = Fcons (Qnil, Qnil); - run_undoable_change (); - for (m = BUF_MARKERS (current_buffer); m; m = m->next) { charpos = m->charpos; @@ -243,11 +233,6 @@ record_property_change (ptrdiff_t beg, ptrdiff_t length, if (NILP (pending_boundary)) pending_boundary = Fcons (Qnil, Qnil); - /* Switch temporarily to the buffer that was changed. */ - set_buffer_internal (buf); - - run_undoable_change (); - if (MODIFF <= SAVE_MODIFF) record_first_change (); @@ -256,9 +241,6 @@ record_property_change (ptrdiff_t beg, ptrdiff_t length, entry = Fcons (Qnil, Fcons (prop, Fcons (value, Fcons (lbeg, lend)))); bset_undo_list (current_buffer, Fcons (entry, BVAR (current_buffer, undo_list))); - - /* Reset the buffer */ - set_buffer_internal (obuf); } DEFUN ("undo-boundary", Fundo_boundary, Sundo_boundary, 0, 0, 0, @@ -432,7 +414,6 @@ void syms_of_undo (void) { DEFSYM (Qinhibit_read_only, "inhibit-read-only"); - DEFSYM (Qundo_auto__undoable_change, "undo-auto--undoable-change"); DEFSYM (Qundo_auto__last_boundary_cause, "undo-auto--last-boundary-cause"); DEFSYM (Qexplicit, "explicit"); |