*** empty log message ***

1 files changed, 15 insertions, 11 deletions

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 7fb3276b8d7..d570e4834d7 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -449,18 +449,9 @@ turn off scroll bars; otherwise, turn on scroll bars."
 (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 @@ turn off scroll bars; otherwise, turn on scroll bars."
      (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)