Mercurial > hg > xemacs-beta
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 { |