diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-06-10 13:11:27 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-06-10 13:11:27 +0000 |
| commit | 118c9082db1347575675ffd5cf9e8de907968c75 (patch) | |
| tree | 9d12d3f6cfe0ef9e26b24c35293756abe036c289 | |
| parent | 5e90137963135d62cc3c1fe768ccd056abd71f4f (diff) | |
| download | emacs-118c9082db1347575675ffd5cf9e8de907968c75.tar.gz | |
Formatting change.
| -rw-r--r-- | lisp/frame.el | 15 |
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'.") 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. |