Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-19 03:17:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
Jim Blandy 1991-08-11 01:03:47 +00:00
parent ec838c3924
commit 708c60f8af
1 changed files with 2 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/term/x-win.el
View file

@ -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