# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1195677442 0
# Node ID d0c1a4ea25628c516f4d1a4de35489185121d057
# Parent  dcb8172071f2f7d2b1aff45ff2ef8587bc631edb
Fit within 80 columns.

diff -r dcb8172071f2 -r d0c1a4ea2562 lisp/frame.el
--- a/lisp/frame.el	Wed Nov 21 20:23:26 2007 +0000
+++ b/lisp/frame.el	Wed Nov 21 20:37:22 2007 +0000
@@ -292,8 +292,9 @@
   ;; the buffer of the selected window, which fails when the selected
   ;; window is the minibuffer.
   (let ((old-buffer (current-buffer))
-	(window-system-frame-alist (cdr (assq initial-window-system
-					      window-system-default-frame-alist))))
+	(window-system-frame-alist
+         (cdr (assq initial-window-system
+                    window-system-default-frame-alist))))
 
     (when (and frame-notice-user-settings
 	       (null frame-initial-frame))
@@ -714,7 +715,8 @@
 	      (let ((type (terminal-live-p (cdr (assq 'terminal parameters)))))
 		(cond
 		 ((eq type t) nil)
-		 ((eq type nil) (error "Terminal %s does not exist" (cdr (assq 'terminal parameters))))
+		 ((eq type nil) (error "Terminal %s does not exist"
+                                       (cdr (assq 'terminal parameters))))
 		 (t type))))
 	     ((assq 'window-system parameters)
 	      (cdr (assq 'window-system parameters)))
@@ -725,7 +727,10 @@
     (unless frame-creation-function
       (error "Don't know how to create a frame on window system %s" w))
     (run-hooks 'before-make-frame-hook)
-    (setq frame (funcall frame-creation-function (append parameters (cdr (assq w window-system-default-frame-alist)))))
+    (setq frame
+          (funcall frame-creation-function
+                   (append parameters
+                           (cdr (assq w window-system-default-frame-alist)))))
     (normal-erase-is-backspace-setup-frame frame)
     ;; Inherit the original frame's parameters.
     (dolist (param frame-inherited-parameters)