From fbdbd1ea5904a1425b1bd129feb33756b689ad49 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sun, 13 May 1990 17:16:36 +0000 Subject: *** empty log message *** --- lisp/term/x-win.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lisp') 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)) -- cgit v1.2.3