From b79f8b20e7a253bf0fef622f521fb59645b6c025 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 28 Jun 1996 07:59:01 +0000 Subject: (x-handle-name-switch): Renamed from x-handle-name-rn-switch. --- lisp/term/x-win.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index b5f35c2de88..08819f28df6 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.") -- cgit v1.2.1