diff options
| author | Jim Blandy <[email protected]> | 1990-05-13 17:16:36 +0000 |
|---|---|---|
| committer | Jim Blandy <[email protected]> | 1990-05-13 17:16:36 +0000 |
| commit | fbdbd1ea5904a1425b1bd129feb33756b689ad49 (patch) | |
| tree | b64c125cbd1d4963c830bb00cf30d8de658a38c3 /lisp | |
| parent | 698e1804b855ba0c2129e0421cbdd023d8199d7c (diff) | |
*** empty log message ***
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/term/x-win.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 6d14031918..d930ba1a38 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -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)) |