Mercurial > hg > xemacs-beta
comparison lisp/x-faces.el @ 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 | 7039e6323819 |
children | 79c6ff3eef26 |
comparison
equal
deleted
inserted
replaced
800:a5954632b187 | 801:2b676dc88c66 |
---|---|
336 (t | 336 (t |
337 ;; non-scalable fonts: take the next available size. | 337 ;; non-scalable fonts: take the next available size. |
338 (let ((rest available) | 338 (let ((rest available) |
339 (last nil) | 339 (last nil) |
340 result) | 340 result) |
341 (setq font (downcase font)) | |
342 (while rest | 341 (while rest |
343 (cond ((and (not up-p) (equal font (downcase (nth 2 (car rest))))) | 342 (cond ((and (not up-p) (equalp font (nth 2 (car rest)))) |
344 (setq result last | 343 (setq result last |
345 rest nil)) | 344 rest nil)) |
346 ((and up-p (equal font (and last (downcase (nth 2 last))))) | 345 ((and up-p (equalp font (and last (nth 2 last)))) |
347 (setq result (car rest) | 346 (setq result (car rest) |
348 rest nil))) | 347 rest nil))) |
349 (setq last (car rest)) | 348 (setq last (car rest)) |
350 (setq rest (cdr rest))) | 349 (setq rest (cdr rest))) |
351 (nth 2 result)))))) | 350 (nth 2 result)))))) |
700 ;; some, taking into account whether one of the colors was specified. | 699 ;; some, taking into account whether one of the colors was specified. |
701 ;; | 700 ;; |
702 (let ((fg (face-foreground-instance 'default device)) | 701 (let ((fg (face-foreground-instance 'default device)) |
703 (bg (face-background-instance 'default device))) | 702 (bg (face-background-instance 'default device))) |
704 (if (not (and fg bg)) | 703 (if (not (and fg bg)) |
705 (if (or (and fg (equal (downcase (color-instance-name fg)) "white")) | 704 (if (or (and fg (equalp (color-instance-name fg) "white")) |
706 (and bg (equal (downcase (color-instance-name bg)) "black"))) | 705 (and bg (equalp (color-instance-name bg) "black"))) |
707 (progn | 706 (progn |
708 (or fg (set-face-foreground 'default "white" device)) | 707 (or fg (set-face-foreground 'default "white" device)) |
709 (or bg (set-face-background 'default "black" device))) | 708 (or bg (set-face-background 'default "black" device))) |
710 (or fg (set-face-foreground 'default "white" device)) | 709 (or fg (set-face-foreground 'default "white" device)) |
711 (or bg (set-face-background 'default "black" device))))) | 710 (or bg (set-face-background 'default "black" device))))) |