From 2fb263f61e44e4155588f3fe7987336da1f76878 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Thu, 5 Nov 1992 04:28:10 +0000 Subject: [PATCH] *** empty log message *** --- lisp/term/x-win.el | 26 +++++++++++++++----------- 1 file 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)