# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 736991652 0
# Node ID c91b18333f583d6d8f6f356b988a49ffabdf261e
# Parent  67f34b0bc2d172d239119fd102f51491fa849465
	* x-win.el: Since we require faces.el, there's no point in setting
	frame-creation-function to x-create-frame - just set it directly
	to x-create-frame-with-faces.

	* x-win.el: (require 'faces), too.  Move (require 'select) to top,
	with the other requires.

diff -r 67f34b0bc2d1 -r c91b18333f58 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Sun May 09 23:53:56 1993 +0000
+++ b/lisp/term/x-win.el	Sun May 09 23:54:12 1993 +0000
@@ -70,6 +70,8 @@
 (require 'frame)
 (require 'mouse)
 (require 'scroll-bar)
+(require 'faces)
+(require 'select)
 
 (setq command-switch-alist
       (append '(("-bw" .	x-handle-numeric-switch)
@@ -503,14 +505,12 @@
 (x-open-connection (or x-display-name
 		       (setq x-display-name (getenv "DISPLAY"))))
 
-(setq frame-creation-function 'x-create-frame)
+(setq frame-creation-function 'x-create-frame-with-faces)
 
 (defun x-win-suspend-error ()
   (error "Suspending an emacs running under X makes no sense"))
 (add-hook 'suspend-hook 'x-win-suspend-error)
 
-(require 'select)
-
 ;;; Arrange for the kill and yank functions to set and check the clipboard.
 (setq interprogram-cut-function 'x-select-text)
 (setq interprogram-paste-function 'x-cut-buffer-or-selection-value)