From: Jim Blandy <jimb@redhat.com>
Date: Sun, 13 May 1990 17:16:36 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: emacs-19.34~15755
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbdbd1ea5904a1425b1bd129feb33756b689ad49;p=emacs.git

*** empty log message ***
---

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 6d14031918f..d930ba1a384 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))