Mercurial > emacs

diff 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
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.