APPROVE COMMIT NOTE: This patch has been committed. # HG changeset patch # User Aidan Kehoe <kehoea(a)parhasard.net&gt; # Date 1250431137 -3600 # Node ID e3feb329bda9831e5b3d4ca8e2dacc643cb15e28 # Parent 9a1a59b4b75d0ffdab4f7d90db48ec666770c24d Make the initialisation of xpm-color-symbols a bit more reasonable. 2009-08-16 Aidan Kehoe <kehoea(a)parhasard.net&gt; * faces.el (xpm-color-symbols): Call (featurep 'x) when faces.elc is dumped, not repeatedly (myriad times) at image instantiation time. diff -r 9a1a59b4b75d -r e3feb329bda9 lisp/ChangeLog --- a/lisp/ChangeLog Fri Aug 14 19:14:51 2009 +0100 +++ b/lisp/ChangeLog Sun Aug 16 14:58:57 2009 +0100 ＠＠ -1,3 +1,9 ＠＠ +2009-08-16 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * faces.el (xpm-color-symbols): + Call (featurep 'x) when faces.elc is dumped, not repeatedly + (myriad times) at image instantiation time. + 2009-08-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; * minibuf.el (read-from-minibuffer): diff -r 9a1a59b4b75d -r e3feb329bda9 lisp/faces.el --- a/lisp/faces.el Fri Aug 14 19:14:51 2009 +0100 +++ b/lisp/faces.el Sun Aug 16 14:58:57 2009 +0100 ＠＠ -2068,24 +2068,20 ＠＠ (list '("foreground" (face-foreground 'default)) '("background" (face-background 'default)) - '("backgroundToolBarColor" - (or - (and - (featurep 'x) - (x-get-resource "backgroundToolBarColor" - "BackgroundToolBarColor" 'string - nil nil 'warn)) - - (face-background 'toolbar))) - '("foregroundToolBarColor" - (or - (and - (featurep 'x) - (x-get-resource "foregroundToolBarColor" - "ForegroundToolBarColor" 'string - nil nil 'warn)) - (face-foreground 'toolbar))) - ))) + `("backgroundToolBarColor" + ,(if (featurep 'x) + '(or (x-get-resource "backgroundToolBarColor" + "BackgroundToolBarColor" 'string + nil nil 'warn) + (face-background 'toolbar)) + '(face-background 'toolbar))) + `("foregroundToolBarColor" + ,(if (featurep 'x) + '(or (x-get-resource "foregroundToolBarColor" + "ForegroundToolBarColor" 'string + nil nil 'warn) + (face-foreground 'toolbar)) + '(face-foreground 'toolbar)))))) (when (featurep 'tty) (set-face-highlight-p 'bold t 'global '(default tty)) -- ¿Dónde estará ahora mi sobrino Yoghurtu Nghe, que tuvo que huir precipitadamente de la aldea por culpa de la escasez de rinocerontes? _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches