Mercurial > hg > xemacs-beta
comparison src/chartab.c @ 801:2b676dc88c66
[xemacs-hg @ 2002-04-01 03:58:02 by ben]
bug fixes (e.g. ballooning on X windows)
Makefile.in.in: Try to make the Makefile notice if its source Makefile.in.in is
changed, and regenerate and run itself.
Use a bigger default SHEAP_ADJUSTMENT on Cygwin; otherwise you
can't compile under Mule if a Lisp file has changed. (can't run
temacs)
TODO.ben-mule-21-5: update.
mule/mule-cmds.el: Hash the result of mswindows-get-language-environment-from-locale,
since it's very expensive (and causes huge ballooning of memory
under X Windows, since it's called from x-get-resource).
cl-extra.el, code-files.el, files.el, simple.el, subr.el, x-faces.el: Create new string-equal-ignore-case, based on built-in
compare-strings -- compare strings ignoring case without the need
to generate garbage by calling downcase. Use it in equalp and
elsewhere.
alloc.c, bytecode.c, chartab.c, data.c, elhash.c, emacs.c, eval.c, event-Xt.c, event-unixoid.c, extents.c, file-coding.c, fileio.c, fns.c, glyphs.c, gutter.c, lisp-union.h, lisp.h, mule-charset.c, nt.c, process-unix.c, process.c, specifier.c, symbols.c, sysdep.c, sysdep.h, text.c, toolbar.c: Try to implement GC triggering based on percentage of total memory
usage. Not currently activated (percentage set to 0) because not
quite working. Add `memory-usage' primitive to return XEmacs'
idea of its memory usage.
Add primitive compare-strings, compatible with FSF 21.1 -- can
compare any part of two strings, optionally ignoring case.
Improve qxe() functions in text.c for text comparison.
Use RETURN_NOT_REACHED to try to avoid warnings about unreachable
code.
Add volatile_make_int() to fix warning in unix_send_process().
author | ben |
---|---|
date | Mon, 01 Apr 2002 03:59:04 +0000 |
parents | a5954632b187 |
children | 6728e641994e |
comparison
equal
deleted
inserted
replaced
800:a5954632b187 | 801:2b676dc88c66 |
---|---|
212 #ifdef MULE | 212 #ifdef MULE |
213 if (EQ (symbol, Qcategory)) return CHAR_TABLE_TYPE_CATEGORY; | 213 if (EQ (symbol, Qcategory)) return CHAR_TABLE_TYPE_CATEGORY; |
214 #endif | 214 #endif |
215 | 215 |
216 invalid_constant ("Unrecognized char table type", symbol); | 216 invalid_constant ("Unrecognized char table type", symbol); |
217 return CHAR_TABLE_TYPE_GENERIC; /* not reached */ | 217 RETURN_NOT_REACHED (CHAR_TABLE_TYPE_GENERIC) |
218 } | 218 } |
219 | 219 |
220 static void | 220 static void |
221 print_chartab_range (Emchar first, Emchar last, Lisp_Object val, | 221 print_chartab_range (Emchar first, Emchar last, Lisp_Object val, |
222 Lisp_Object printcharfun) | 222 Lisp_Object printcharfun) |
924 | 924 |
925 default: | 925 default: |
926 abort (); | 926 abort (); |
927 } | 927 } |
928 | 928 |
929 return Qnil; /* not reached */ | 929 return Qnil; /* not (usually) reached */ |
930 } | 930 } |
931 | 931 |
932 static int | 932 static int |
933 check_valid_char_table_value (Lisp_Object value, enum char_table_type type, | 933 check_valid_char_table_value (Lisp_Object value, enum char_table_type type, |
934 Error_Behavior errb) | 934 Error_Behavior errb) |
975 | 975 |
976 default: | 976 default: |
977 abort (); | 977 abort (); |
978 } | 978 } |
979 | 979 |
980 return 0; /* not reached */ | 980 return 0; /* not (usually) reached */ |
981 } | 981 } |
982 | 982 |
983 static Lisp_Object | 983 static Lisp_Object |
984 canonicalize_char_table_value (Lisp_Object value, enum char_table_type type) | 984 canonicalize_char_table_value (Lisp_Object value, enum char_table_type type) |
985 { | 985 { |