Mercurial > emacs

changeset 91655:8cd1274a8ae3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-handle-parent-id): Remove free variable `parent-id'.
author Glenn Morris <rgm@gnu.org>
date Fri, 08 Feb 2008 08:33:23 +0000
parents 3cd69d2e616a
children 0e5db1332a59
files lisp/term/x-win.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/term/x-win.el	Fri Feb 08 08:04:31 2008 +0000
+++ b/lisp/term/x-win.el	Fri Feb 08 08:33:23 2008 +0000
@@ -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.