From cb01ce3f055a415bbe4f2be4fbd0e4a7f320d688 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 21 Nov 2007 20:37:22 +0000 Subject: [PATCH] Fit within 80 columns. --- lisp/frame.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/lisp/frame.el b/lisp/frame.el index 1c11829475..305f5ebff8 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -292,8 +292,9 @@ there (in decreasing order of priority)." ;; 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 @@ setup is for focus to follow the pointer." (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 @@ setup is for focus to follow the pointer." (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) -- 2.20.1