823 |
extern void fix_overlays_before P_ ((struct buffer *, EMACS_INT, EMACS_INT)); |
extern void fix_overlays_before P_ ((struct buffer *, EMACS_INT, EMACS_INT)); |
824 |
extern void mmap_set_vars P_ ((int)); |
extern void mmap_set_vars P_ ((int)); |
825 |
|
|
826 |
|
/* Get overlays at POSN into array OVERLAYS with NOVERLAYS elements. |
827 |
|
If NEXTP is non-NULL, return next overlay there. |
828 |
|
See overlay_at arg CHANGE_REQ for meaning of CHRQ arg. */ |
829 |
|
|
830 |
|
#define GET_OVERLAYS_AT(posn, overlays, noverlays, nextp, chrq) \ |
831 |
|
do { \ |
832 |
|
int maxlen = 40; \ |
833 |
|
overlays = (Lisp_Object *) alloca (maxlen * sizeof (Lisp_Object)); \ |
834 |
|
noverlays = overlays_at (posn, 0, &overlays, &maxlen, \ |
835 |
|
nextp, NULL, chrq); \ |
836 |
|
if (noverlays > maxlen) \ |
837 |
|
{ \ |
838 |
|
maxlen = noverlays; \ |
839 |
|
overlays = (Lisp_Object *) alloca (maxlen * sizeof (Lisp_Object)); \ |
840 |
|
noverlays = overlays_at (posn, 0, &overlays, &maxlen, \ |
841 |
|
nextp, NULL, chrq); \ |
842 |
|
} \ |
843 |
|
} while (0) |
844 |
|
|
845 |
EXFUN (Fbuffer_name, 1); |
EXFUN (Fbuffer_name, 1); |
846 |
EXFUN (Fget_file_buffer, 1); |
EXFUN (Fget_file_buffer, 1); |
847 |
EXFUN (Fnext_overlay_change, 1); |
EXFUN (Fnext_overlay_change, 1); |