comparison src/file-coding.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 19dfb459d51a
comparison
equal deleted inserted replaced
800:a5954632b187 801:2b676dc88c66
983 if (EQ (symbol, Qlf)) return EOL_LF; 983 if (EQ (symbol, Qlf)) return EOL_LF;
984 if (EQ (symbol, Qcrlf)) return EOL_CRLF; 984 if (EQ (symbol, Qcrlf)) return EOL_CRLF;
985 if (EQ (symbol, Qcr)) return EOL_CR; 985 if (EQ (symbol, Qcr)) return EOL_CR;
986 986
987 invalid_constant ("Unrecognized eol type", symbol); 987 invalid_constant ("Unrecognized eol type", symbol);
988 return EOL_AUTODETECT; /* not reached */ 988 RETURN_NOT_REACHED (EOL_AUTODETECT)
989 } 989 }
990 990
991 static Lisp_Object 991 static Lisp_Object
992 eol_type_to_symbol (enum eol_type type) 992 eol_type_to_symbol (enum eol_type type)
993 { 993 {
1695 Lisp_Object aliasee = Fgethash (alias, Vcoding_system_hash_table, Qnil); 1695 Lisp_Object aliasee = Fgethash (alias, Vcoding_system_hash_table, Qnil);
1696 if (SYMBOLP (aliasee)) 1696 if (SYMBOLP (aliasee))
1697 return aliasee; 1697 return aliasee;
1698 else 1698 else
1699 invalid_argument ("Symbol is not a coding system alias", alias); 1699 invalid_argument ("Symbol is not a coding system alias", alias);
1700 return Qnil; /* To keep the compiler happy */ 1700 RETURN_NOT_REACHED (Qnil)
1701 } 1701 }
1702 1702
1703 /* A maphash function, for removing dangling coding system aliases. */ 1703 /* A maphash function, for removing dangling coding system aliases. */
1704 static int 1704 static int
1705 dangling_coding_system_alias_p (Lisp_Object alias, 1705 dangling_coding_system_alias_p (Lisp_Object alias,
3396 if (EQ (Dynarr_at (cats, j).sym, symbol)) 3396 if (EQ (Dynarr_at (cats, j).sym, symbol))
3397 return Dynarr_at (cats, j).id; 3397 return Dynarr_at (cats, j).id;
3398 } 3398 }
3399 3399
3400 invalid_constant ("Unrecognized coding category", symbol); 3400 invalid_constant ("Unrecognized coding category", symbol);
3401 return 0; /* not reached */ 3401 RETURN_NOT_REACHED (0)
3402 } 3402 }
3403 3403
3404 static Lisp_Object 3404 static Lisp_Object
3405 coding_category_id_to_symbol (int id) 3405 coding_category_id_to_symbol (int id)
3406 { 3406 {