Mercurial > emacs

changeset 62:b469d69e9f03

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Sun, 13 May 1990 17:16:36 +0000
parents 20f2a7720e65
children 714e88ef93c8
files lisp/term/x-win.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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))