(define-key global-map [end] 'end-of-buffer)
(define-key global-map "\C-z" 'iconify-frame)
-\f
-;;; 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")))
+\f
+;;;; 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
(t
(setq x-last-selected-text text)))))
+\f
+;;; 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)