From f9c7b08c6e7bc5f0b271aa4a60e76fcd1a9507a3 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 8 Feb 2008 08:33:42 +0000 Subject: [PATCH] (x-handle-parent-id): Remove free variable `parent-id'. --- lisp/ChangeLog | 2 ++ lisp/term/x-win.el | 9 +++++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6b5790b2010..c743c917eb1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -23,6 +23,8 @@ (pcmpl-ssh-hosts): Move definition before use. Handle lines without hostnames, and multiple hostnames per line. + * term/x-win.el (x-handle-parent-id): Remove free variable `parent-id'. + 2008-02-08 Phil Hagelberg * pcmpl-unix.el (pcmpl-ssh-known-hosts-file): New defcustom. diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 5ce1a03ddcc..acbb3161a15 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -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. -- 2.39.5