Mercurial > emacs
changeset 91628:60f09344e8c9
(x-handle-parent-id): New function.
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Thu, 07 Feb 2008 14:06:35 +0000 |
| parents | 4be63beaa601 |
| children | d2d6b0b017fa |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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.