[Emacs-diffs] Changes to emacs/lisp/term/x-win.el,v

[Jan Djärv]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jan Djärv <jhd>        08/02/07 14:06:35

Index: x-win.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/term/x-win.el,v
retrieving revision 1.222
retrieving revision 1.223
diff -u -b -r1.222 -r1.223
--- x-win.el    1 Feb 2008 16:01:25 -0000       1.222
+++ x-win.el    7 Feb 2008 14:06:35 -0000       1.223
@@ -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.