# HG changeset patch
# User Jan Dj¸«£rv <jan.h.d@swipnet.se>
# Date 1202393195 0
# Node ID 60f09344e8c9382590d098f18c0ad006b912dceb
# Parent  4be63beaa6016bdda1126dd337bf2f4a8892f15f
(x-handle-parent-id): New function.

diff -r 4be63beaa601 -r 60f09344e8c9 lisp/term/x-win.el
--- a/lisp/term/x-win.el	Thu Feb 07 14:05:53 2008 +0000
+++ b/lisp/term/x-win.el	Thu Feb 07 14:06:35 2008 +0000
@@ -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.