mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-10 05:30:45 -08:00
Code Issues Projects Releases Wiki Activity

* buffer.c (Foverlay_start, Foverlay_end, Foverlay_buffer,

Browse source 
Foverlay_properties): Functions moved here from subr.el.
This commit is contained in:
Jim Blandy 1993-05-14 15:35:17 +00:00
parent 24f1977f70
commit 8ebafa8d4d
1 changed files with 49 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

49
src/buffer.c
View file

@ -1590,6 +1590,51 @@ DEFUN ("delete-overlay", Fdelete_overlay, Sdelete_overlay, 1, 1, 0,
return Qnil;
}
/* Overlay dissection functions. */
DEFUN ("overlay-start", Foverlay_start, Soverlay_start, 1, 1, 0,
"Return the position at which OVERLAY starts.")
(overlay)
Lisp_Object overlay;
{
CHECK_OVERLAY (overlay, 0);
return (Fmarker_position (OVERLAY_START (overlay)));
}
DEFUN ("overlay-end", Foverlay_end, Soverlay_end, 1, 1, 0,
"Return the position at which OVERLAY ends.")
(overlay)
Lisp_Object overlay;
{
CHECK_OVERLAY (overlay, 0);
return (Fmarker_position (OVERLAY_END (overlay)));
}
DEFUN ("overlay-buffer", Foverlay_buffer, Soverlay_buffer, 1, 1, 0,
"Return the buffer OVERLAY belongs to.")
(overlay)
Lisp_Object overlay;
{
CHECK_OVERLAY (overlay, 0);
return Fmarker_buffer (OVERLAY_START (overlay));
}
DEFUN ("overlay-properties", Foverlay_properties, Soverlay_properties, 1, 1, 0,
"Return a list of the properties on OVERLAY.\n\
This is a copy of OVERLAY's plist; modifying its conses has no effect on\n\
OVERLAY.")
(overlay)
Lisp_Object overlay;
{
CHECK_OVERLAY (overlay, 0);
return Fcopy_sequence (Fcdr_safe (XCONS (overlay)->cdr));
}
DEFUN ("overlays-at", Foverlays_at, Soverlays_at, 1, 1, 0,
"Return a list of the overays that contain position POS.")
@ -2246,6 +2291,10 @@ Automatically local in all buffers.");
defsubr (&Smake_overlay);
defsubr (&Sdelete_overlay);
defsubr (&Smove_overlay);
defsubr (&Soverlay_start);
defsubr (&Soverlay_end);
defsubr (&Soverlay_buffer);
defsubr (&Soverlay_properties);
defsubr (&Soverlays_at);
defsubr (&Snext_overlay_change);
defsubr (&Soverlay_recenter);