dot/emacs: Propagate initial frame's background colour to other frames.

Now the `.xinitrc' Emacs has all of its frames with black backgrounds
and other ancillary Emacsen have all of their frames with blue
backgrounds.  This seems right and useful.

diff --git a/dot/emacs b/dot/emacs
index 320e03cfc478b30a2b8d9d2b3d35fbadfef02fcb..7e66c2a21c39197adff61c0b7cdd62e2642cc122 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -542,6 +542,9 @@
             (background-color . "black")
             (foreground-color . "white"))
        (nil (menu-bar-lines . 0))))
             (background-color . "black")
             (foreground-color . "white"))
        (nil (menu-bar-lines . 0))))

+(let ((backg (frame-parameter nil 'background-color)))
+  (if (and backg window-system)
+      (push (cons 'background-color backg) default-frame-alist)))

 
 ;; Other frame fiddling.
 
 
 ;; Other frame fiddling.