Mercurial > hg > xemacs-beta
annotate etc/gtkrc @ 5502:5b08be74bb53
Be better about recognising side-effect-free forms, byte-optimize.el.
2011-05-07 Aidan Kehoe <kehoea@parhasard.net>
* byte-optimize.el:
* byte-optimize.el (byte-optimize-form-code-walker):
Call #'byte-optimize-side-effect-free-p on the form, rather than
just checking the plist of the form's car.
* byte-optimize.el (side-effect-free-fns):
Move the CL functions into their alphabetical place in the list.
* byte-optimize.el (function):
* byte-optimize.el (byte-optimize-side-effect-free-p): New.
Function returning non-nil if a funcall has no side-effects, which
handles things like (remove* item list :key 'car) and
(remove-if-not #'integerp list).
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sat, 07 May 2011 11:45:20 +0100 |
parents | 8d3d05ffbb43 |
children |
rev | line source |
---|---|
2082 | 1 # Force the window background to be the same as the default face background: |
2 # white. | |
3 | |
5442
8d3d05ffbb43
Copyright and short license added to etc/gtkrc.
Mats Lidell <matsl@xemacs.org>
parents:
2082
diff
changeset
|
4 # Copyright 1999 Malcolm Purvis |
8d3d05ffbb43
Copyright and short license added to etc/gtkrc.
Mats Lidell <matsl@xemacs.org>
parents:
2082
diff
changeset
|
5 # This file is part of XEmacs, licensed to you under the GNU |
8d3d05ffbb43
Copyright and short license added to etc/gtkrc.
Mats Lidell <matsl@xemacs.org>
parents:
2082
diff
changeset
|
6 # General Public License, version 3 or later at your option. |
8d3d05ffbb43
Copyright and short license added to etc/gtkrc.
Mats Lidell <matsl@xemacs.org>
parents:
2082
diff
changeset
|
7 # There is NO WARRANTY, explicit or implied, on this file. |
8d3d05ffbb43
Copyright and short license added to etc/gtkrc.
Mats Lidell <matsl@xemacs.org>
parents:
2082
diff
changeset
|
8 |
2082 | 9 style "default_background" |
10 { | |
11 bg[NORMAL] = { 1.0, 1.0, 1.0 } | |
12 } | |
13 | |
14 class "GtkXEmacs" style "default_background" |