diff options
| author | Glenn Morris | 2008-02-08 08:33:42 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-02-08 08:33:42 +0000 |
| commit | f9c7b08c6e7bc5f0b271aa4a60e76fcd1a9507a3 (patch) | |
| tree | 970e3908f3bf5b8ef37fcc09c962d0578130fa71 /lisp/term | |
| parent | c2902087b895853cb9a8f7300de339b44818cbe2 (diff) | |
| download | emacs-f9c7b08c6e7bc5f0b271aa4a60e76fcd1a9507a3.tar.gz emacs-f9c7b08c6e7bc5f0b271aa4a60e76fcd1a9507a3.zip | |
(x-handle-parent-id): Remove free variable `parent-id'.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/x-win.el | 9 |
1 files changed, 5 insertions, 4 deletions
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 @@ | |||
| 194 | (defun x-handle-parent-id (switch) | 194 | (defun x-handle-parent-id (switch) |
| 195 | (or (consp x-invocation-args) | 195 | (or (consp x-invocation-args) |
| 196 | (error "%s: missing argument to `%s' option" (invocation-name) switch)) | 196 | (error "%s: missing argument to `%s' option" (invocation-name) switch)) |
| 197 | (setq parent-id (string-to-number (car x-invocation-args)) | 197 | (setq initial-frame-alist (cons |
| 198 | x-invocation-args (cdr x-invocation-args)) | 198 | (cons 'parent-id |
| 199 | (setq initial-frame-alist (cons (cons 'parent-id parent-id) | 199 | (string-to-number (car x-invocation-args))) |
| 200 | initial-frame-alist))) | 200 | initial-frame-alist) |
| 201 | x-invocation-args (cdr x-invocation-args))) | ||
| 201 | 202 | ||
| 202 | (defvar x-display-name nil | 203 | (defvar x-display-name nil |
| 203 | "The name of the X display on which Emacs was started. | 204 | "The name of the X display on which Emacs was started. |