[Emacs-diffs] Changes to emacs/lisp/term/x-win.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/02/08 08:33:23

Index: x-win.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term/x-win.el,v
retrieving revision 1.223
retrieving revision 1.224
diff -u -b -r1.223 -r1.224
--- x-win.el    7 Feb 2008 14:06:35 -0000       1.223
+++ x-win.el    8 Feb 2008 08:33:23 -0000       1.224
@@ -194,10 +194,11 @@
 (defun x-handle-parent-id (switch)
   (or (consp x-invocation-args)
       (error "%s: missing argument to `%s' option" (invocation-name) switch))
-  (setq parent-id (string-to-number (car x-invocation-args))
-       x-invocation-args (cdr x-invocation-args))
-  (setq initial-frame-alist (cons (cons 'parent-id parent-id)
-                                 initial-frame-alist)))
+  (setq initial-frame-alist (cons
+                             (cons 'parent-id
+                                   (string-to-number (car x-invocation-args)))
+                             initial-frame-alist)
+        x-invocation-args (cdr x-invocation-args)))
 
 (defvar x-display-name nil
   "The name of the X display on which Emacs was started.