comparison src/buffer.c @ 8839:41981db9ad8e

(Qevaporate): New symbol. (syms_of_buffer): Initialize it. (Fmove_overlay): Check if overlay is empty. (Foverlay_put): Check if setting evaporate property on empty overlay. (evaporate_overlays): New function.

8838:3f629c277e6b

Lisp_Object Qget_file_buffer;

Lisp_Object Qoverlayp;

Lisp_Object Qpriority, Qwindow;

Lisp_Object Qmodification_hooks;
Lisp_Object Qinsert_in_front_hooks;
Lisp_Object Qinsert_behind_hooks;

    error ("Marker points into wrong buffer");

  CHECK_NUMBER_COERCE_MARKER (beg, 1);
  CHECK_NUMBER_COERCE_MARKER (end, 1);

  specbind (Qinhibit_quit, Qt);

  if (XINT (beg) > XINT (end))
    {
      Lisp_Object temp;
      temp = beg; beg = end; end = temp;
    }

  obuffer = Fmarker_buffer (OVERLAY_START (overlay));
  b = XBUFFER (buffer);
  ob = XBUFFER (obuffer);

  "Set one property of overlay OVERLAY: give property PROP value VALUE.")
  (overlay, prop, value)
     Lisp_Object overlay, prop, value;
{
  Lisp_Object plist, tail, buffer;

  CHECK_OVERLAY (overlay, 0);

  buffer = Fmarker_buffer (OVERLAY_START (overlay));

  for (tail = plist;
       CONSP (tail) && CONSP (XCONS (tail)->cdr);
       tail = XCONS (XCONS (tail)->cdr)->cdr)
    if (EQ (XCONS (tail)->car, prop))
      {
	/* If actually changing the property, mark redisplay needed.  */
	if (! NILP (buffer) && !EQ (XCONS (XCONS (tail)->cdr)->car, value))
	  redisplay_region (XBUFFER (buffer),
			    marker_position (OVERLAY_START (overlay)),
			    marker_position (OVERLAY_END   (overlay)));

	return XCONS (XCONS (tail)->cdr)->car = value;
      }

  /* Actually changing the property; mark redisplay needed.  */
  if (! NILP (buffer))
    redisplay_region (XBUFFER (buffer),
		      marker_position (OVERLAY_START (overlay)),
		      marker_position (OVERLAY_END   (overlay)));

  if (! CONSP (XCONS (overlay)->cdr))
    XCONS (overlay)->cdr = Fcons (Qnil, Qnil);

  XCONS (XCONS (overlay)->cdr)->cdr
    = Fcons (prop, Fcons (value, plist));

  return value;
}

/* Run the modification-hooks of overlays that include
   any part of the text in START to END.

      call3 (Fcar (list), overlay, start, end);
      list = Fcdr (list);
    }
  UNGCPRO;
}

/* Somebody has tried to store NEWVAL into the buffer-local slot with
   offset XUINT (valcontents), and NEWVAL has an unacceptable type.  */
void
buffer_slot_type_mismatch (valcontents, newval)

  staticpro (&Vbuffer_alist);
  staticpro (&Qprotected_field);
  staticpro (&Qpermanent_local);
  staticpro (&Qkill_buffer_hook);
  staticpro (&Qoverlayp);
  staticpro (&Qmodification_hooks);
  Qmodification_hooks = intern ("modification-hooks");
  staticpro (&Qinsert_in_front_hooks);
  Qinsert_in_front_hooks = intern ("insert-in-front-hooks");
  staticpro (&Qinsert_behind_hooks);

8839:41981db9ad8e

Lisp_Object Qget_file_buffer;

Lisp_Object Qoverlayp;

Lisp_Object Qpriority, Qwindow, Qevaporate;

Lisp_Object Qmodification_hooks;
Lisp_Object Qinsert_in_front_hooks;
Lisp_Object Qinsert_behind_hooks;

    error ("Marker points into wrong buffer");

  CHECK_NUMBER_COERCE_MARKER (beg, 1);
  CHECK_NUMBER_COERCE_MARKER (end, 1);

  if (XINT (beg) == XINT (end) && ! NILP (Foverlay_get (overlay, Qevaporate)))
    return Fdelete_overlay (overlay);

  if (XINT (beg) > XINT (end))
    {
      Lisp_Object temp;
      temp = beg; beg = end; end = temp;
    }

  specbind (Qinhibit_quit, Qt);

  obuffer = Fmarker_buffer (OVERLAY_START (overlay));
  b = XBUFFER (buffer);
  ob = XBUFFER (obuffer);

  "Set one property of overlay OVERLAY: give property PROP value VALUE.")
  (overlay, prop, value)
     Lisp_Object overlay, prop, value;
{
  Lisp_Object plist, tail, buffer;
  int changed;

  CHECK_OVERLAY (overlay, 0);

  buffer = Fmarker_buffer (OVERLAY_START (overlay));

  for (tail = plist;
       CONSP (tail) && CONSP (XCONS (tail)->cdr);
       tail = XCONS (XCONS (tail)->cdr)->cdr)
    if (EQ (XCONS (tail)->car, prop))
      {
	changed = !EQ (XCONS (XCONS (tail)->cdr)->car, value);
	XCONS (XCONS (tail)->cdr)->car = value;
	goto found;
      }
  /* It wasn't in the list, so add it to the front.  */
  changed = !NILP (value);
  if (! CONSP (XCONS (overlay)->cdr))
    XCONS (overlay)->cdr = Fcons (Qnil, Qnil);
  XCONS (XCONS (overlay)->cdr)->cdr = Fcons (prop, Fcons (value, plist));
 found:
  if (! NILP (buffer))
    {
      if (changed)
	redisplay_region (XBUFFER (buffer),
			  marker_position (OVERLAY_START (overlay)),
			  marker_position (OVERLAY_END   (overlay)));
      if (EQ (prop, Qevaporate) && ! NILP (value)
	  && (OVERLAY_POSITION (OVERLAY_START (overlay))
	      == OVERLAY_POSITION (OVERLAY_END (overlay))))
	Fdelete_overlay (overlay);
    }
  return value;
}

/* Run the modification-hooks of overlays that include
   any part of the text in START to END.

      call3 (Fcar (list), overlay, start, end);
      list = Fcdr (list);
    }
  UNGCPRO;
}

/* Delete any zero-sized overlays at position POS, if the `evaporate'
   property is set.  */
void
evaporate_overlays (pos)
     int pos;
{
  Lisp_Object tail, overlay, hit_list;

  hit_list = Qnil;
  if (pos <= XFASTINT (current_buffer->overlay_center))
    for (tail = current_buffer->overlays_before; CONSP (tail);
	 tail = XCONS (tail)->cdr)
      {
	int endpos;
	overlay = XCONS (tail)->car;
	endpos = OVERLAY_POSITION (OVERLAY_END (overlay));
	if (endpos < pos)
	  break;
	if (endpos == pos && OVERLAY_POSITION (OVERLAY_START (overlay)) == pos
	    && Foverlay_get (overlay, Qevaporate))
	  hit_list = Fcons (overlay, hit_list);
      }
  else
    for (tail = current_buffer->overlays_after; CONSP (tail);
	 tail = XCONS (tail)->cdr)
      {
	int startpos;
	overlay = XCONS (tail)->cdr;
	startpos = OVERLAY_POSITION (OVERLAY_START (overlay));
	if (startpos > pos)
	  break;
	if (startpos == pos && OVERLAY_POSITION (OVERLAY_END (overlay)) == pos
	    && Foverlay_get (overlay, Qevaporate))
	  hit_list = Fcons (overlay, hit_list);
      }
  for (; CONSP (hit_list); hit_list = XCONS (hit_list)->cdr)
    Fdelete_overlay (XCONS (hit_list)->car);
}

/* Somebody has tried to store NEWVAL into the buffer-local slot with
   offset XUINT (valcontents), and NEWVAL has an unacceptable type.  */
void
buffer_slot_type_mismatch (valcontents, newval)

  staticpro (&Vbuffer_alist);
  staticpro (&Qprotected_field);
  staticpro (&Qpermanent_local);
  staticpro (&Qkill_buffer_hook);
  staticpro (&Qoverlayp);
  Qevaporate = intern ("evaporate");
  staticpro (&Qevaporate);
  staticpro (&Qmodification_hooks);
  Qmodification_hooks = intern ("modification-hooks");
  staticpro (&Qinsert_in_front_hooks);
  Qinsert_in_front_hooks = intern ("insert-in-front-hooks");
  staticpro (&Qinsert_behind_hooks);