# HG changeset patch
# User Karoly Lorentey <lorentey@elte.hu>
# Date 1085682228 0
# Node ID caa7581d382811d57c0858b147c1bef13a27ef0b
# Parent  8e6f20317d12df18b3fd9b1d8eb6e4540d411d5f
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

diff -r 8e6f20317d12 -r caa7581d3828 README.multi-tty
--- a/README.multi-tty	Thu May 27 17:57:59 2004 +0000
+++ b/README.multi-tty	Thu May 27 18:23:48 2004 +0000
@@ -179,6 +179,7 @@
 The following is an (incomplete) list of people who have contributed
 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>
 Romain Francoise <romain at orebokech dot com>
 Ami Fischman <ami at fischman dot org>
diff -r 8e6f20317d12 -r caa7581d3828 lisp/frame.el
--- a/lisp/frame.el	Thu May 27 17:57:59 2004 +0000
+++ b/lisp/frame.el	Thu May 27 18:23:48 2004 +0000
@@ -651,7 +651,8 @@
       (error "Don't know how to create a frame on window system %s" w))
     (run-hooks 'before-make-frame-hook)
     (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)
     frame))