From: Mark Wooding <mdw@distorted.org.uk>
Date: Sun, 24 Apr 2016 11:01:56 +0000 (+0100)
Subject: dot/emacs: Propagate initial frame's background colour to other frames.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/73abf7e40652a21cc9ce7b3545a69da8a7605f93?ds=sidebyside

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 320e03c..7e66c2a 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -542,6 +542,9 @@
 	     (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.