(x-handle-parent-id): Remove free variable `parent-id'.
This commit is contained in:
parent
c2902087b8
commit
f9c7b08c6e
2 changed files with 7 additions and 4 deletions
|
@ -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 <phil@evri.com>
|
||||
|
||||
* pcmpl-unix.el (pcmpl-ssh-known-hosts-file): New defcustom.
|
||||
|
|
|
@ -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.
|
||||
|
|
Loading…
Add table
Reference in a new issue