Mercurial > hg > xemacs-beta
comparison src/extents.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 | 6504113e7c2d |
comparison
equal
deleted
inserted
replaced
800:a5954632b187 | 801:2b676dc88c66 |
---|---|
4251 if (EQ (at_flag, Qafter)) return EXTENT_AT_AFTER; | 4251 if (EQ (at_flag, Qafter)) return EXTENT_AT_AFTER; |
4252 if (EQ (at_flag, Qbefore)) return EXTENT_AT_BEFORE; | 4252 if (EQ (at_flag, Qbefore)) return EXTENT_AT_BEFORE; |
4253 if (EQ (at_flag, Qat)) return EXTENT_AT_AT; | 4253 if (EQ (at_flag, Qat)) return EXTENT_AT_AT; |
4254 | 4254 |
4255 invalid_constant ("Invalid AT-FLAG in `extent-at'", at_flag); | 4255 invalid_constant ("Invalid AT-FLAG in `extent-at'", at_flag); |
4256 return EXTENT_AT_AFTER; /* unreached */ | 4256 RETURN_NOT_REACHED (EXTENT_AT_AFTER) |
4257 } | 4257 } |
4258 | 4258 |
4259 static int | 4259 static int |
4260 extent_at_mapper (EXTENT e, void *arg) | 4260 extent_at_mapper (EXTENT e, void *arg) |
4261 { | 4261 { |
5056 if (EQ (layout_obj, Qinside_margin)) return GL_INSIDE_MARGIN; | 5056 if (EQ (layout_obj, Qinside_margin)) return GL_INSIDE_MARGIN; |
5057 if (EQ (layout_obj, Qwhitespace)) return GL_WHITESPACE; | 5057 if (EQ (layout_obj, Qwhitespace)) return GL_WHITESPACE; |
5058 if (EQ (layout_obj, Qtext)) return GL_TEXT; | 5058 if (EQ (layout_obj, Qtext)) return GL_TEXT; |
5059 | 5059 |
5060 invalid_constant ("Unknown glyph layout type", layout_obj); | 5060 invalid_constant ("Unknown glyph layout type", layout_obj); |
5061 return GL_TEXT; /* unreached */ | 5061 RETURN_NOT_REACHED (GL_TEXT) |
5062 } | 5062 } |
5063 | 5063 |
5064 static Lisp_Object | 5064 static Lisp_Object |
5065 set_extent_glyph_1 (Lisp_Object extent_obj, Lisp_Object glyph, int endp, | 5065 set_extent_glyph_1 (Lisp_Object extent_obj, Lisp_Object glyph, int endp, |
5066 Lisp_Object layout_obj) | 5066 Lisp_Object layout_obj) |