From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 28 Jun 1996 07:59:01 +0000 (+0000)
Subject: (x-handle-name-switch): Renamed from x-handle-name-rn-switch.
X-Git-Tag: emacs-19.34~324
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66f229be7419318b0318398f6b9549f8e8558903;p=emacs.git

(x-handle-name-switch): Renamed from x-handle-name-rn-switch.
---

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.")