* lisp/frame.el (make-frame): Append window-system-default-frame-alist to
parameters before calling frame-creation-function.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-389
(unless frame-creation-function
(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
- (cdr (assq w window-system-default-frame-alist)))
+ (setq frame (funcall frame-creation-function (append parameters (cdr (assq w window-system-default-frame-alist)))))
(run-hook-with-args 'after-make-frame-functions frame)
frame))