aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJim Blandy1993-06-10 13:11:27 +0000
committerJim Blandy1993-06-10 13:11:27 +0000
commit118c9082db1347575675ffd5cf9e8de907968c75 (patch)
tree9d12d3f6cfe0ef9e26b24c35293756abe036c289
parent5e90137963135d62cc3c1fe768ccd056abd71f4f (diff)
downloademacs-118c9082db1347575675ffd5cf9e8de907968c75.tar.gz
emacs-118c9082db1347575675ffd5cf9e8de907968c75.zip
Formatting change.
-rw-r--r--lisp/frame.el15
1 files changed, 10 insertions, 5 deletions
diff --git a/lisp/frame.el b/lisp/frame.el
index 87cdd366699..6abf8126032 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -119,11 +119,16 @@ These supersede the values given in `default-frame-alist'.")
119 frame-initial-frame 119 frame-initial-frame
120 ;; Must set cursor-color after background color. 120 ;; Must set cursor-color after background color.
121 ;; So put it first. 121 ;; So put it first.
122 (list (cons 'cursor-color (cdr (assq 'background-color params))) 122 (list (cons 'cursor-color
123 (cons 'foreground-color (cdr (assq 'background-color params))) 123 (cdr (assq 'background-color params)))
124 (cons 'background-color (cdr (assq 'foreground-color params))) 124 (cons 'foreground-color
125 (cons 'mouse-color (cdr (assq 'background-color params))) 125 (cdr (assq 'background-color params)))
126 (cons 'border-color (cdr (assq 'background-color params))))))))) 126 (cons 'background-color
127 (cdr (assq 'foreground-color params)))
128 (cons 'mouse-color
129 (cdr (assq 'background-color params)))
130 (cons 'border-color
131 (cdr (assq 'background-color params)))))))))
127 132
128 ;; At this point, we know that we have a frame open, so we 133 ;; At this point, we know that we have a frame open, so we
129 ;; can delete the terminal frame. 134 ;; can delete the terminal frame.