# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 642618996 0
# Node ID b469d69e9f0379f3277b73e1fa9f5414e5d936bf
# Parent  20f2a7720e65166838e31c3b51dbb5733cc6e009
*** empty log message ***

diff -r 20f2a7720e65 -r b469d69e9f03 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Fri May 11 20:07:49 1990 +0000
+++ b/lisp/term/x-win.el	Sun May 13 17:16:36 1990 +0000
@@ -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))