Mercurial > emacs
changeset 3617:40506f2cd86c
Formatting change.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 10 Jun 1993 13:11:27 +0000 |
| parents | 05cf1ccf2ada |
| children | 58f653fa4e5b |
| files | lisp/frame.el |
| diffstat | 1 files changed, 10 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Thu Jun 10 13:10:00 1993 +0000 +++ b/lisp/frame.el Thu Jun 10 13:11:27 1993 +0000 @@ -119,11 +119,16 @@ frame-initial-frame ;; Must set cursor-color after background color. ;; So put it first. - (list (cons 'cursor-color (cdr (assq 'background-color params))) - (cons 'foreground-color (cdr (assq 'background-color params))) - (cons 'background-color (cdr (assq 'foreground-color params))) - (cons 'mouse-color (cdr (assq 'background-color params))) - (cons 'border-color (cdr (assq 'background-color params))))))))) + (list (cons 'cursor-color + (cdr (assq 'background-color params))) + (cons 'foreground-color + (cdr (assq 'background-color params))) + (cons 'background-color + (cdr (assq 'foreground-color params))) + (cons 'mouse-color + (cdr (assq 'background-color params))) + (cons 'border-color + (cdr (assq 'background-color params))))))))) ;; At this point, we know that we have a frame open, so we ;; can delete the terminal frame.