GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 1, or (at your option)
+the Free Software Foundation; either version 2, or (at your option)
any later version.
GNU Emacs is distributed in the hope that it will be useful,
#include "window.h"
#include "blockinput.h"
+#define min(x, y) ((x) < (y) ? (x) : (y))
+
static void insert_from_string_1 ();
static void insert_from_buffer_1 ();
static void gap_left ();
}
}
+/* Adjust markers whose insertion-type is t
+ for an insertion of AMOUNT characters at POS. */
+
+static void
+adjust_markers_for_insert (pos, amount)
+ register int pos, amount;
+{
+ Lisp_Object marker;
+
+ marker = BUF_MARKERS (current_buffer);
+
+ while (!NILP (marker))
+ {
+ register struct Lisp_Marker *m = XMARKER (marker);
+ if (m->insertion_type && m->bufpos == pos)
+ m->bufpos += amount;
+ marker = m->chain;
+ }
+}
+
/* Add the specified amount to point. This is used only when the value
of point changes due to an insert or delete; it does not represent
a conceptual change in point as a marker. In particular, point is
not crossing any interval boundaries, so there's no need to use the
usual SET_PT macro. In fact it would be incorrect to do so, because
- either the old or the new value of point is out of synch with the
+ either the old or the new value of point is out of sync with the
current set of intervals. */
static void
adjust_point (amount)
+ int amount;
{
BUF_PT (current_buffer) += amount;
}
/* If we have to get more space, get enough to last a while. */
increment += 2000;
+ /* Don't allow a buffer size that won't fit in an int
+ even if it will fit in a Lisp integer.
+ That won't work because so many places use `int'. */
+
+ if (Z - BEG + GAP_SIZE + increment
+ >= ((unsigned) 1 << (min (BITS_PER_INT, VALBITS) - 1)))
+ error ("Buffer exceeds maximum size");
+
BLOCK_INPUT;
result = BUFFER_REALLOC (BEG_ADDR, (Z - BEG + GAP_SIZE + increment));
{
register Lisp_Object temp;
- /* Make sure point-max won't overflow after this insertion. */
- XSETINT (temp, length + Z);
- if (length + Z != XINT (temp))
- error ("maximum buffer size exceeded");
-
if (prepare)
prepare_to_modify_buffer (PT, PT);
ZV += length;
Z += length;
adjust_overlays_for_insert (PT, length);
+ adjust_markers_for_insert (PT, length);
adjust_point (length);
#ifdef USE_TEXT_PROPERTIES
ZV += length;
Z += length;
adjust_overlays_for_insert (PT, length);
+ adjust_markers_for_insert (PT, length);
/* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */
graft_intervals_into_buffer (XSTRING (string)->intervals, PT, length,
ZV += length;
Z += length;
adjust_overlays_for_insert (PT, length);
+ adjust_markers_for_insert (PT, length);
adjust_point (length);
/* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */
adjust_markers (to + GAP_SIZE, to + GAP_SIZE, - numdel - GAP_SIZE);
/* Adjust the overlay center as needed. This must be done after
- adjusting the markers that bound the overlays. */
+ adjusting the markers that bound the overlays. */
adjust_overlays_for_delete (from, numdel);
GAP_SIZE += numdel;
verify_interval_modification (current_buffer, start, end);
#ifdef CLASH_DETECTION
- if (!NILP (current_buffer->filename)
+ if (!NILP (current_buffer->file_truename)
+ /* Make binding buffer-file-name to nil effective. */
+ && !NILP (current_buffer->filename)
&& SAVE_MODIFF >= MODIFF)
- lock_file (current_buffer->filename);
+ lock_file (current_buffer->file_truename);
#else
/* At least warn if this file has changed on disk since it was visited. */
if (!NILP (current_buffer->filename)
Vdeactivate_mark = Qt;
}
\f
-static Lisp_Object
-before_change_function_restore (value)
- Lisp_Object value;
-{
- Vbefore_change_function = value;
-}
-
-static Lisp_Object
-after_change_function_restore (value)
- Lisp_Object value;
-{
- Vafter_change_function = value;
-}
-
-static Lisp_Object
-before_change_functions_restore (value)
- Lisp_Object value;
-{
- Vbefore_change_functions = value;
-}
-
-static Lisp_Object
-after_change_functions_restore (value)
- Lisp_Object value;
-{
- Vafter_change_functions = value;
-}
-
/* Signal a change to the buffer immediately before it happens.
START and END are the bounds of the text to be changed,
as Lisp objects. */
&& !NILP (Vrun_hooks))
call1 (Vrun_hooks, Qfirst_change_hook);
- /* Now in any case run the before-change-function if any. */
+ /* Run the before-change-function if any.
+ We don't bother "binding" this variable to nil
+ because it is obsolete anyway and new code should not use it. */
if (!NILP (Vbefore_change_function))
- {
- int count = specpdl_ptr - specpdl;
- Lisp_Object function;
-
- function = Vbefore_change_function;
-
- record_unwind_protect (after_change_function_restore,
- Vafter_change_function);
- record_unwind_protect (before_change_function_restore,
- Vbefore_change_function);
- record_unwind_protect (after_change_functions_restore,
- Vafter_change_functions);
- record_unwind_protect (before_change_functions_restore,
- Vbefore_change_functions);
- Vafter_change_function = Qnil;
- Vbefore_change_function = Qnil;
- Vafter_change_functions = Qnil;
- Vbefore_change_functions = Qnil;
-
- call2 (function, start, end);
- unbind_to (count, Qnil);
- }
+ call2 (Vbefore_change_function, start, end);
- /* Now in any case run the before-change-function if any. */
+ /* Now run the before-change-functions if any. */
if (!NILP (Vbefore_change_functions))
{
- int count = specpdl_ptr - specpdl;
- Lisp_Object functions;
-
- functions = Vbefore_change_functions;
-
- record_unwind_protect (after_change_function_restore,
- Vafter_change_function);
- record_unwind_protect (before_change_function_restore,
- Vbefore_change_function);
- record_unwind_protect (after_change_functions_restore,
- Vafter_change_functions);
- record_unwind_protect (before_change_functions_restore,
- Vbefore_change_functions);
- Vafter_change_function = Qnil;
- Vbefore_change_function = Qnil;
- Vafter_change_functions = Qnil;
+ Lisp_Object args[3];
+ Lisp_Object before_change_functions;
+ Lisp_Object after_change_functions;
+ struct gcpro gcpro1, gcpro2;
+
+ /* "Bind" before-change-functions and after-change-functions
+ to nil--but in a way that errors don't know about.
+ That way, if there's an error in them, they will stay nil. */
+ before_change_functions = Vbefore_change_functions;
+ after_change_functions = Vafter_change_functions;
Vbefore_change_functions = Qnil;
-
- while (CONSP (functions))
- {
- call2 (XCONS (functions)->car, start, end);
- functions = XCONS (functions)->cdr;
- }
- unbind_to (count, Qnil);
+ Vafter_change_functions = Qnil;
+ GCPRO2 (before_change_functions, after_change_functions);
+
+ /* Actually run the hook functions. */
+ args[0] = Qbefore_change_functions;
+ args[1] = start;
+ args[2] = end;
+ run_hook_list_with_args (before_change_functions, 3, args);
+
+ /* "Unbind" the variables we "bound" to nil. */
+ Vbefore_change_functions = before_change_functions;
+ Vafter_change_functions = after_change_functions;
+ UNGCPRO;
}
if (!NILP (current_buffer->overlays_before)
signal_after_change (pos, lendel, lenins)
int pos, lendel, lenins;
{
+ /* Run the after-change-function if any.
+ We don't bother "binding" this variable to nil
+ because it is obsolete anyway and new code should not use it. */
if (!NILP (Vafter_change_function))
- {
- int count = specpdl_ptr - specpdl;
- Lisp_Object function;
- function = Vafter_change_function;
-
- record_unwind_protect (after_change_function_restore,
- Vafter_change_function);
- record_unwind_protect (before_change_function_restore,
- Vbefore_change_function);
- record_unwind_protect (after_change_functions_restore,
- Vafter_change_functions);
- record_unwind_protect (before_change_functions_restore,
- Vbefore_change_functions);
- Vafter_change_function = Qnil;
- Vbefore_change_function = Qnil;
- Vafter_change_functions = Qnil;
- Vbefore_change_functions = Qnil;
+ call3 (Vafter_change_function,
+ make_number (pos), make_number (pos + lenins),
+ make_number (lendel));
- call3 (function, make_number (pos), make_number (pos + lenins),
- make_number (lendel));
- unbind_to (count, Qnil);
- }
if (!NILP (Vafter_change_functions))
{
- int count = specpdl_ptr - specpdl;
- Lisp_Object functions;
- functions = Vafter_change_functions;
-
- record_unwind_protect (after_change_function_restore,
- Vafter_change_function);
- record_unwind_protect (before_change_function_restore,
- Vbefore_change_function);
- record_unwind_protect (after_change_functions_restore,
- Vafter_change_functions);
- record_unwind_protect (before_change_functions_restore,
- Vbefore_change_functions);
- Vafter_change_function = Qnil;
- Vbefore_change_function = Qnil;
- Vafter_change_functions = Qnil;
+ Lisp_Object args[4];
+ Lisp_Object before_change_functions;
+ Lisp_Object after_change_functions;
+ struct gcpro gcpro1, gcpro2;
+
+ /* "Bind" before-change-functions and after-change-functions
+ to nil--but in a way that errors don't know about.
+ That way, if there's an error in them, they will stay nil. */
+ before_change_functions = Vbefore_change_functions;
+ after_change_functions = Vafter_change_functions;
Vbefore_change_functions = Qnil;
-
- while (CONSP (functions))
- {
- call3 (XCONS (functions)->car,
- make_number (pos), make_number (pos + lenins),
- make_number (lendel));
- functions = XCONS (functions)->cdr;
- }
- unbind_to (count, Qnil);
+ Vafter_change_functions = Qnil;
+ GCPRO2 (before_change_functions, after_change_functions);
+
+ /* Actually run the hook functions. */
+ args[0] = Qafter_change_functions;
+ XSETFASTINT (args[1], pos);
+ XSETFASTINT (args[2], pos + lenins);
+ XSETFASTINT (args[3], lendel);
+ run_hook_list_with_args (after_change_functions,
+ 4, args);
+
+ /* "Unbind" the variables we "bound" to nil. */
+ Vbefore_change_functions = before_change_functions;
+ Vafter_change_functions = after_change_functions;
+ UNGCPRO;
}
if (!NILP (current_buffer->overlays_before)
1,
make_number (pos), make_number (pos + lenins),
make_number (lendel));
+
+ /* After an insertion, call the text properties
+ insert-behind-hooks or insert-in-front-hooks. */
+ if (lendel == 0)
+ report_interval_modification (pos, pos + lenins);
}