emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/src/buffer.h [emacs-unicode-2]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/src/buffer.h [emacs-unicode-2]
Date: Mon, 28 Jun 2004 03:56:41 -0400

Index: emacs/src/buffer.h
diff -c emacs/src/buffer.h:1.94.2.2 emacs/src/buffer.h:1.94.2.3
*** emacs/src/buffer.h:1.94.2.2 Fri Apr 16 12:50:45 2004
--- emacs/src/buffer.h  Mon Jun 28 07:29:18 2004
***************
*** 1,5 ****
  /* Header file for the buffer manipulation primitives.
!    Copyright (C) 1985, 86, 93, 94, 95, 97, 1998, 1999, 2000, 01, 2003
     Free Software Foundation, Inc.
  
  This file is part of GNU Emacs.
--- 1,5 ----
  /* Header file for the buffer manipulation primitives.
!    Copyright (C) 1985,86,93,94,95,97,98,99,2000,01,03,04
     Free Software Foundation, Inc.
  
  This file is part of GNU Emacs.
***************
*** 827,832 ****
--- 827,851 ----
  extern void fix_overlays_before P_ ((struct buffer *, EMACS_INT, EMACS_INT));
  extern void mmap_set_vars P_ ((int));
  
+ /* Get overlays at POSN into array OVERLAYS with NOVERLAYS elements.
+    If NEXTP is non-NULL, return next overlay there.
+    See overlay_at arg CHANGE_REQ for meaning of CHRQ arg.  */
+ 
+ #define GET_OVERLAYS_AT(posn, overlays, noverlays, nextp, chrq)               
\
+   do {                                                                        
\
+     int maxlen = 40;                                                  \
+     overlays = (Lisp_Object *) alloca (maxlen * sizeof (Lisp_Object));        
\
+     noverlays = overlays_at (posn, 0, &overlays, &maxlen,             \
+                            nextp, NULL, chrq);                                
\
+     if (noverlays > maxlen)                                           \
+       {                                                                       
\
+       maxlen = noverlays;                                             \
+       overlays = (Lisp_Object *) alloca (maxlen * sizeof (Lisp_Object)); \
+       noverlays = overlays_at (posn, 0, &overlays, &maxlen,           \
+                                nextp, NULL, chrq);                    \
+       }                                                                       
\
+   } while (0)
+ 
  EXFUN (Fbuffer_live_p, 1);
  EXFUN (Fbuffer_name, 1);
  EXFUN (Fget_file_buffer, 1);




reply via email to

[Prev in Thread] Current Thread [Next in Thread]