Fix coding tag.

[gnu-emacs] / lisp / term / x-win.el

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index f5ec4c27480cd919bf78c18d2e32c7a545fc29a9..acbb3161a15e6cf2dd2f25697b1b1f1c8531dced 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -190,6 +190,16 @@
   (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 initial-frame-alist (cons
+                             (cons 'parent-id
+                                   (string-to-number (car x-invocation-args)))
+                             initial-frame-alist)
+        x-invocation-args (cdr x-invocation-args)))
+
 (defvar x-display-name nil
   "The name of the X display on which Emacs was started.