(x-handle-parent-id): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6775a8da98cefc08ae0af206d876c3e341cb3128..3d312fd12709c8f824b9793211cb71c1b713830a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-02-07  Timo Savola <timo.savola@iki.fi>
+
+       * startup.el (command-line-x-option-alist): Add --parent-id.
+
+       * term/x-win.el (x-handle-parent-id): New function.
+
 2008-02-07  Chris Moore  <christopher.ian.moore@gmail.com>
 
        * mouse.el (x-fixed-font-alist): Use consistent capitalization for

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index f5ec4c27480cd919bf78c18d2e32c7a545fc29a9..5ce1a03ddcc95b8451bb127db8cfea3d120dfaf4 100644 (file)
--- 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.