Mercurial > hg > xemacs-beta
annotate etc/gtkrc @ 5651:ae2fdb1fd9e0
Improve for-effect handling in a few places, lisp/
lisp/ChangeLog addition:
2012-05-01 Aidan Kehoe <kehoea@parhasard.net>
* byte-optimize.el (byte-optimize-form-code-walker):
* byte-optimize.el (byte-optimize-or):
Improve handling of for-effect here; we don't need to worry about
discarding multiple values when for-effect is non-nil, this
applies to both #'prog1 and #'or.
* bytecomp.el (progn):
* bytecomp.el (byte-compile-file-form-progn): New.
Put back this function, since it's for-effect there's no need to
worry about passing back multiple values.
* cl-macs.el (cl-pop2):
* cl-macs.el (cl-do-pop):
* cl-macs.el (remf):
* cl.el (pop):
Expand to (prog1 (car-safe PLACE) (setq PLACE (cdr PLACE))) in all
these macros, since that optimizes better (especially for-effect
handling) when byte-compile-delete-errors is nil.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Tue, 01 May 2012 12:43:22 +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" |