From 708c60f8afefdaa6990da69abb79c535dd79edeb Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sun, 11 Aug 1991 01:03:47 +0000 Subject: [PATCH] *** empty log message *** --- lisp/term/x-win.el | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 99b99c4ef1b..4f388247073 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -71,8 +71,7 @@ (require 'screen) (setq command-switch-alist - (append '(("-dm" . x-establish-daemon-mode) - ("-bw" . x-handle-numeric-switch) + (append '(("-bw" . x-handle-numeric-switch) ("-d" . x-handle-display) ("-display" . x-handle-display) ("-name" . x-handle-switch) @@ -151,13 +150,6 @@ (x-geometry (car x-invocation-args))) x-invocation-args (cdr x-invocation-args))) -;; The daemon stuff isn't really useful at the moment. -(defvar x-daemon-mode nil - "When set, means initially create just a minibuffer.") - -(defun x-establish-daemon-mode (switch) - (setq x-daemon-mode t)) - (defvar x-display-name nil "The X display name specifying server and X screen.") @@ -626,6 +618,7 @@ This returns ARGS with the arguments that have been processed removed." ;;; Do the actual X Windows setup here; the above code just defines ;;; functions and variables that we use now. +(setq command-line-args (x-handle-args command-line-args)) (x-open-connection (or x-display-name (setq x-display-name (getenv "DISPLAY")))) @@ -636,7 +629,6 @@ This returns ARGS with the arguments that have been processed removed." (setq screen-creation-function 'x-create-screen) (x-read-resources) -(setq command-line-args (x-handle-args command-line-args)) (x-pop-initial-window) (setq suspend-hook