Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Jim Blandy 1992-11-05 04:28:10 +00:00
parent cf7a78db1d
commit 2fb263f61e
1 changed files with 15 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
lisp/term/x-win.el
View file

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