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 {