# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 835948741 0
# Node ID 9ed106f6e1be7aa955e2b80cc68abad6c01a265a
# Parent  92107cc54a5fcb09a3f51fb06dacd90155ac5559
(x-handle-name-switch): Renamed from x-handle-name-rn-switch.

diff -r 92107cc54a5f -r 9ed106f6e1be lisp/term/x-win.el
--- a/lisp/term/x-win.el	Fri Jun 28 07:58:29 1996 +0000
+++ b/lisp/term/x-win.el	Fri Jun 28 07:59:01 1996 +0000
@@ -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.")