mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-10 09:12:15 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Jan Djärv 2008-02-07 14:07:00 +00:00
parent c434f203bf
commit 350c174573
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

9
lisp/term/x-win.el
View File

@ -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.