Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 04:21:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Jim Blandy 1990-05-13 17:16:36 +00:00
parent 698e1804b8
commit fbdbd1ea59
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -55,8 +55,6 @@
;; -title .title
;; -xrm
(message "X-windows...")
;; An alist of X options and the function which handles them. See
;; ../startup.el.
@ -203,10 +201,14 @@
(defun x-pop-initial-window ()
;; xterm.c depends on using interrupt-driven input.
(set-input-mode t nil t)
(setq mouse-motion-handler 'x-track-pointer)
;; (setq mouse-motion-handler 'x-track-pointer)
(setq x-switches-specified (append x-switches-specified
initial-screen-alist
screen-default-alist))
(and (string-equal (user-real-login-name) "mtr")
(setq x-switches-specified
(append (list '(name . "Die, Yuppie SCUM!!!"))
x-switches-specified)))
;; see screen.el for this function
(pop-initial-screen x-switches-specified)
(delete-screen terminal-screen))