Mercurial > emacs

comparison lisp/frame.el @ 3617:40506f2cd86c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Formatting change.
author Jim Blandy <jimb@redhat.com>
date Thu, 10 Jun 1993 13:11:27 +0000
parents 05cf1ccf2ada
children cf5972f69f8a
comparison
equal deleted inserted replaced
3616:05cf1ccf2ada 3617:40506f2cd86c
117 (let ((params (frame-parameters frame-initial-frame))) 117 (let ((params (frame-parameters frame-initial-frame)))
118 (modify-frame-parameters 118 (modify-frame-parameters
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.
130 (delete-frame terminal-frame) 135 (delete-frame terminal-frame)
131 (setq terminal-frame nil)) 136 (setq terminal-frame nil))