Mercurial > emacs
comparison src/buffer.c @ 2787:995c6e665599
* buffer.c (Foverlay_start, Foverlay_end, Foverlay_buffer,
Foverlay_properties): Functions moved here from subr.el.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Fri, 14 May 1993 15:35:17 +0000 |
parents | 8bf3bb4c20dd |
children | 4f234fbfb02c |
comparison
equal
deleted
inserted
replaced
2786:286057aa81c7 | 2787:995c6e665599 |
---|---|
1588 OVERLAY_POSITION (OVERLAY_START (overlay)), | 1588 OVERLAY_POSITION (OVERLAY_START (overlay)), |
1589 OVERLAY_POSITION (OVERLAY_END (overlay))); | 1589 OVERLAY_POSITION (OVERLAY_END (overlay))); |
1590 | 1590 |
1591 return Qnil; | 1591 return Qnil; |
1592 } | 1592 } |
1593 | |
1594 /* Overlay dissection functions. */ | |
1595 | |
1596 DEFUN ("overlay-start", Foverlay_start, Soverlay_start, 1, 1, 0, | |
1597 "Return the position at which OVERLAY starts.") | |
1598 (overlay) | |
1599 Lisp_Object overlay; | |
1600 { | |
1601 CHECK_OVERLAY (overlay, 0); | |
1602 | |
1603 return (Fmarker_position (OVERLAY_START (overlay))); | |
1604 } | |
1605 | |
1606 DEFUN ("overlay-end", Foverlay_end, Soverlay_end, 1, 1, 0, | |
1607 "Return the position at which OVERLAY ends.") | |
1608 (overlay) | |
1609 Lisp_Object overlay; | |
1610 { | |
1611 CHECK_OVERLAY (overlay, 0); | |
1612 | |
1613 return (Fmarker_position (OVERLAY_END (overlay))); | |
1614 } | |
1615 | |
1616 DEFUN ("overlay-buffer", Foverlay_buffer, Soverlay_buffer, 1, 1, 0, | |
1617 "Return the buffer OVERLAY belongs to.") | |
1618 (overlay) | |
1619 Lisp_Object overlay; | |
1620 { | |
1621 CHECK_OVERLAY (overlay, 0); | |
1622 | |
1623 return Fmarker_buffer (OVERLAY_START (overlay)); | |
1624 } | |
1625 | |
1626 DEFUN ("overlay-properties", Foverlay_properties, Soverlay_properties, 1, 1, 0, | |
1627 "Return a list of the properties on OVERLAY.\n\ | |
1628 This is a copy of OVERLAY's plist; modifying its conses has no effect on\n\ | |
1629 OVERLAY.") | |
1630 (overlay) | |
1631 Lisp_Object overlay; | |
1632 { | |
1633 CHECK_OVERLAY (overlay, 0); | |
1634 | |
1635 return Fcopy_sequence (Fcdr_safe (XCONS (overlay)->cdr)); | |
1636 } | |
1637 | |
1593 | 1638 |
1594 DEFUN ("overlays-at", Foverlays_at, Soverlays_at, 1, 1, 0, | 1639 DEFUN ("overlays-at", Foverlays_at, Soverlays_at, 1, 1, 0, |
1595 "Return a list of the overays that contain position POS.") | 1640 "Return a list of the overays that contain position POS.") |
1596 (pos) | 1641 (pos) |
1597 Lisp_Object pos; | 1642 Lisp_Object pos; |
2244 | 2289 |
2245 defsubr (&Soverlayp); | 2290 defsubr (&Soverlayp); |
2246 defsubr (&Smake_overlay); | 2291 defsubr (&Smake_overlay); |
2247 defsubr (&Sdelete_overlay); | 2292 defsubr (&Sdelete_overlay); |
2248 defsubr (&Smove_overlay); | 2293 defsubr (&Smove_overlay); |
2294 defsubr (&Soverlay_start); | |
2295 defsubr (&Soverlay_end); | |
2296 defsubr (&Soverlay_buffer); | |
2297 defsubr (&Soverlay_properties); | |
2249 defsubr (&Soverlays_at); | 2298 defsubr (&Soverlays_at); |
2250 defsubr (&Snext_overlay_change); | 2299 defsubr (&Snext_overlay_change); |
2251 defsubr (&Soverlay_recenter); | 2300 defsubr (&Soverlay_recenter); |
2252 defsubr (&Soverlay_lists); | 2301 defsubr (&Soverlay_lists); |
2253 defsubr (&Soverlay_get); | 2302 defsubr (&Soverlay_get); |