comparison src/lisp.h @ 2421:ab71ad6ff3dd

[xemacs-hg @ 2004-12-06 03:50:53 by ben] (none) README.packages: Document use of --package-prefix. Fix error in specifying standard package location. make-docfile.c: Use QXE_PATH_MAX. info.el: Correct doc string giving example package path. menubar-items.el: Move Prefix Rectangle command up one level. xemacs/packages.texi: Add long form of Lisp Reference Manual to links. Add links pointing to Lisp Reference Manual for more detailed package discussion. lispref/range-tables.texi: Document range-table changes. internals/internals.texi: Update history section. elhash.c, elhash.h, profile.c: Create inchash_eq() to allow direct incrementing of hash-table entry. Use in profile.c to try to reduce profiling overhead. Increase initial size of profile hash tables to reduce profiling overhead. buffer.c, device-msw.c, dialog-msw.c, dired-msw.c, editfns.c, event-msw.c, events.c, glyphs-msw.c, keymap.c, objects-msw.c, process-nt.c, syswindows.h, text.c, text.h, unexnt.c: Rename xetcs* -> qxetcs* for consistency with qxestr*. Rename ei*_c(_*) -> ei*_ascii(_*) since they work with ASCII-only strings not "C strings", whatever those are. This is the last place where "c" was incorrectly being used for "ascii". dialog-msw.c, dumper.c, event-msw.c, fileio.c, glyphs-gtk.c, glyphs-x.c, nt.c, process-nt.c, realpath.c, sysdep.c, sysfile.h, unexcw.c, unexnext.c, unexnt.c: Try to avoid differences in systems that do or do not include final null byte in PATH_MAX. Create PATH_MAX_INTERNAL and PATH_MAX_EXTERNAL and use them everywhere. Rewrite code in dumper.c to avoid use of PATH_MAX. When necessary in nt.c, use _MAX_PATH instead of MAX_PATH to be consistent with other places. text.c: Code to short-circuit when binary or Unicode was not working due to EOL wrapping. Fix this code to work when either no EOL autodetection or no CR's or LF's in the text. lisp.h, rangetab.c, rangetab.h, regex.c, search.c: Implement different types of ranges (open/closed start and end). Change default to be start-closed, end-open.
author ben
date Mon, 06 Dec 2004 03:52:23 +0000
parents ecf1ebac70d8
children 3d8143fc88e1
comparison
equal deleted inserted replaced
2420:ad56e5a6d09f 2421:ab71ad6ff3dd
2203 , \ 2203 , \
2204 (EQ (hare, tortoise) ? \ 2204 (EQ (hare, tortoise) ? \
2205 ((void) signal_circular_property_list_error (list)) : \ 2205 ((void) signal_circular_property_list_error (list)) : \
2206 ((void) 0))))) 2206 ((void) 0)))))
2207 2207
2208 #define PROPERTY_LIST_LOOP(tail, key, value, plist) \ 2208 #define PRIVATE_PROPERTY_LIST_LOOP_4(tail, key, value, plist) \
2209 for (tail = plist; \ 2209 for (tail = plist; \
2210 NILP (tail) ? 0 : \ 2210 NILP (tail) ? 0 : \
2211 (key = XCAR (tail), tail = XCDR (tail), \ 2211 (key = XCAR (tail), tail = XCDR (tail), \
2212 value = XCAR (tail), tail = XCDR (tail), 1); \ 2212 value = XCAR (tail), tail = XCDR (tail), 1); \
2213 ) 2213 )
2214
2215 #define PROPERTY_LIST_LOOP_3(key, value, plist) \
2216 Lisp_Object key, value, tail_##key; \
2217 PRIVATE_PROPERTY_LIST_LOOP_4 (tail_##key, key, value, plist)
2218
2219 #define GC_PROPERTY_LIST_LOOP_3(key, value, plist) \
2220 do { \
2221 XGCDECL3 (key); \
2222 Lisp_Object key, value, tail_##key; \
2223 XGCPRO3 (key, key, value, tail_##key); \
2224 PRIVATE_PROPERTY_LIST_LOOP_4 (tail_##key, key, value, plist)
2225
2226 #define END_GC_PROPERTY_LIST_LOOP(key) \
2227 XUNGCPRO (key); \
2228 } \
2229 while (0)
2214 2230
2215 /* Return 1 if LIST is properly acyclic and nil-terminated, else 0. */ 2231 /* Return 1 if LIST is properly acyclic and nil-terminated, else 0. */
2216 DECLARE_INLINE_HEADER ( 2232 DECLARE_INLINE_HEADER (
2217 int 2233 int
2218 TRUE_LIST_P (Lisp_Object object) 2234 TRUE_LIST_P (Lisp_Object object)
4593 void internal_object_printer (Lisp_Object, Lisp_Object, int); 4609 void internal_object_printer (Lisp_Object, Lisp_Object, int);
4594 4610
4595 /* Defined in rangetab.c */ 4611 /* Defined in rangetab.c */
4596 EXFUN (Fclear_range_table, 1); 4612 EXFUN (Fclear_range_table, 1);
4597 EXFUN (Fget_range_table, 3); 4613 EXFUN (Fget_range_table, 3);
4598 EXFUN (Fmake_range_table, 0); 4614 EXFUN (Fmake_range_table, 1);
4599 EXFUN (Fput_range_table, 4); 4615 EXFUN (Fput_range_table, 4);
4616
4617 extern Lisp_Object Qstart_closed_end_open;
4618 extern Lisp_Object Qstart_open_end_open;
4619 extern Lisp_Object Qstart_closed_end_closed;
4620 extern Lisp_Object Qstart_open_end_closed;
4600 4621
4601 void put_range_table (Lisp_Object, EMACS_INT, EMACS_INT, Lisp_Object); 4622 void put_range_table (Lisp_Object, EMACS_INT, EMACS_INT, Lisp_Object);
4602 int unified_range_table_bytes_needed (Lisp_Object); 4623 int unified_range_table_bytes_needed (Lisp_Object);
4603 int unified_range_table_bytes_used (void *); 4624 int unified_range_table_bytes_used (void *);
4604 void unified_range_table_copy_data (Lisp_Object, void *); 4625 void unified_range_table_copy_data (Lisp_Object, void *);