diff options
Diffstat (limited to 'lisp/term/x-win.el')
| -rw-r--r-- | lisp/term/x-win.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index f5ec4c27480..5ce1a03ddcc 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -190,6 +190,15 @@ (setq initial-frame-alist (cons (cons 'name x-resource-name) initial-frame-alist))) +;; Handle the --parent-id option. +(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))) + (defvar x-display-name nil "The name of the X display on which Emacs was started. |