comparison lisp/term/x-win.el @ 1546:da9a60e97e72

*** empty log message ***

1545:9ff238dd8a35

(define-key global-map [M-next] 'scroll-other-window)
(define-key global-map [begin] 'beginning-of-buffer)
(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")))

;;; 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
;;; from x-cut-buffer-or-selection-value.
(defvar x-last-selected-text nil)

      (setq x-last-selected-text text)
      nil)
     (t
      (setq x-last-selected-text text)))))

;;; 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)

;;; Turn off window-splitting optimization; X is usually fast enough

1546:da9a60e97e72

(define-key global-map [M-next] 'scroll-other-window)
(define-key global-map [begin] 'beginning-of-buffer)
(define-key global-map [end] 'end-of-buffer)

(define-key global-map "\C-z" 'iconify-frame)


;;;; 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
;;; from x-cut-buffer-or-selection-value.
(defvar x-last-selected-text nil)

      (setq x-last-selected-text text)
      nil)
     (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)

;;; Turn off window-splitting optimization; X is usually fast enough