# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 720937690 0
# Node ID da9a60e97e72c4124216267ff3adc5c0252c3944
# Parent  9ff238dd8a35c22545f738eafca001424eaa7f91
*** empty log message ***

diff -r 9ff238dd8a35 -r da9a60e97e72 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Thu Nov 05 03:15:24 1992 +0000
+++ b/lisp/term/x-win.el	Thu Nov 05 04:28:10 1992 +0000
@@ -449,18 +449,9 @@
 (define-key global-map [end] 'end-of-buffer)
 
 (define-key global-map "\C-z" 'iconify-frame)
+
 
-;;; Do the actual X Windows setup here; the above code just defines
-;;; functions and variables that we use now.
-
-(setq command-line-args (x-handle-args command-line-args))
-(x-open-connection (or x-display-name
-		       (setq x-display-name (getenv "DISPLAY"))))
-
-(setq frame-creation-function 'x-create-frame)
-(setq suspend-hook
-      '(lambda ()
-	 (error "Suspending an emacs running under X makes no sense")))
+;;;; Selections and cut buffers
 
 ;;; We keep track of the last text selected here, so we can check the
 ;;; current selection against it, and avoid passing back our own text
@@ -501,6 +492,19 @@
      (t
       (setq x-last-selected-text text)))))
 
+
+;;; Do the actual X Windows setup here; the above code just defines
+;;; functions and variables that we use now.
+
+(setq command-line-args (x-handle-args command-line-args))
+(x-open-connection (or x-display-name
+		       (setq x-display-name (getenv "DISPLAY"))))
+
+(setq frame-creation-function 'x-create-frame)
+(setq suspend-hook
+      '(lambda ()
+	 (error "Suspending an emacs running under X makes no sense")))
+
 ;;; 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)