Mercurial > hg > xemacs-beta
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 *); |