diff options
author | Richard M. Stallman <[email protected]> | 1996-06-28 07:59:01 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1996-06-28 07:59:01 +0000 |
commit | 66f229be7419318b0318398f6b9549f8e8558903 (patch) | |
tree | a2c622401903c81c1ebaa185d48765333abff99c /lisp | |
parent | 5676ab57a873642bc71726652cb897a40ad72dce (diff) |
(x-handle-name-switch): Renamed from x-handle-name-rn-switch.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/term/x-win.el | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index b5f35c2de8..08819f28df 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -132,17 +132,16 @@ geo) x-invocation-args (cdr x-invocation-args)))) -;; Handle the -name and -rn options. 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.") |