Commit 7c10362e authored by Karoly Lorentey's avatar Karoly Lorentey
Browse files

Fix window-system-default-frame-alist (ARISAWA Akihiro).

lisp/frame.el (make-frame): Use the cdr of the value returned by assq.
By ARISAWA Akihiro (<ari@mbf.ocn.ne.jp>).

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-180
parent 3a258474
...@@ -179,6 +179,7 @@ THANKS ...@@ -179,6 +179,7 @@ THANKS
The following is an (incomplete) list of people who have contributed The following is an (incomplete) list of people who have contributed
to the project by testing, bug reports, and suggestions. Thanks! to the project by testing, bug reports, and suggestions. Thanks!
ARISAWA Akihiro <ari at mbf dot ocn dot ne dot jp>
Robert J. Chassell <bob at rattlesnake dot com> Robert J. Chassell <bob at rattlesnake dot com>
Romain Francoise <romain at orebokech dot com> Romain Francoise <romain at orebokech dot com>
Ami Fischman <ami at fischman dot org> Ami Fischman <ami at fischman dot org>
......
...@@ -651,7 +651,8 @@ on `after-make-frame-functions' are run with one arg, the newly created frame." ...@@ -651,7 +651,8 @@ on `after-make-frame-functions' are run with one arg, the newly created frame."
(error "Don't know how to create a frame on window system %s" w)) (error "Don't know how to create a frame on window system %s" w))
(run-hooks 'before-make-frame-hook) (run-hooks 'before-make-frame-hook)
(setq frame (funcall frame-creation-function parameters)) (setq frame (funcall frame-creation-function parameters))
(modify-frame-parameters frame (assq w window-system-default-frame-alist)) (modify-frame-parameters frame
(cdr (assq w window-system-default-frame-alist)))
(run-hook-with-args 'after-make-frame-functions frame) (run-hook-with-args 'after-make-frame-functions frame)
frame)) frame))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment