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
66f229be
Commit
66f229be
authored
Jun 28, 1996
by
Richard M. Stallman
Browse files
(x-handle-name-switch): Renamed from x-handle-name-rn-switch.
parent
5676ab57
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
6 deletions
+5
-6
lisp/term/x-win.el
lisp/term/x-win.el
+5
-6
No files found.
lisp/term/x-win.el
View file @
66f229be
...
...
@@ -132,17 +132,16 @@
geo
)
x-invocation-args
(
cdr
x-invocation-args
))))
;; Handle the -name
and -rn
option
s
. Set the variable x-resource-name
;; to the option's operand;
if the switch was `-name',
set the name of
;; Handle the -name option. Set the variable x-resource-name
;; to the option's operand; set the name of
;; the initial frame, too.
(
defun
x-handle-name-
rn-
switch
(
switch
)
(
defun
x-handle-name-switch
(
switch
)
(
or
(
consp
x-invocation-args
)
(
error
"%s: missing argument to `%s' option"
(
invocation-name
)
switch
))
(
setq
x-resource-name
(
car
x-invocation-args
)
x-invocation-args
(
cdr
x-invocation-args
))
(
if
(
string=
switch
"-name"
)
(
setq
initial-frame-alist
(
cons
(
cons
'name
x-resource-name
)
initial-frame-alist
))))
(
setq
initial-frame-alist
(
cons
(
cons
'name
x-resource-name
)
initial-frame-alist
)))
(
defvar
x-display-name
nil
"The X display name specifying server and X frame."
)
...
...
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