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