Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
708c60f8
Commit
708c60f8
authored
Aug 11, 1991
by
Jim Blandy
Browse files
*** empty log message ***
parent
ec838c39
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
10 deletions
+2
-10
lisp/term/x-win.el
lisp/term/x-win.el
+2
-10
No files found.
lisp/term/x-win.el
View file @
708c60f8
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment