# HG changeset patch
# User Karoly Lorentey <lorentey@elte.hu>
# Date 1082389157 0
# Node ID 43581c3f182f526a5e7bafce321b1d7d91e7c76f
# Parent  1707638677c9155b3f454867e18e5d6e7c7e58c7
A simple implementation for display-local frame parameters.

lisp/frame.el (window-system-default-frame-alist): New var.
(make-frame): Use it.

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-150

diff -r 1707638677c9 -r 43581c3f182f lisp/frame.el
--- a/lisp/frame.el	Mon Apr 19 14:21:37 2004 +0000
+++ b/lisp/frame.el	Mon Apr 19 15:39:17 2004 +0000
@@ -39,6 +39,17 @@
 function to this list, which should take an alist of parameters
 as its argument.")
 
+(defvar window-system-default-frame-alist nil
+  "Alist of window-system dependent default frame parameters.
+These may be set in your init file, like this:
+
+    ;; Disable menubar and toolbar on the console, but enable them under X.
+    (setq window-system-default-frame-alist
+          '((x (menu-bar-lines . 1) (tool-bar-lines . 1))
+            (nil (menu-bar-lines . 0) (tool-bar-lines . 0))))
+
+Also see `default-frame-alist'.")
+
 ;; The initial value given here used to ask for a minibuffer.
 ;; But that's not necessary, because the default is to have one.
 ;; By not specifying it here, we let an X resource specify it.
@@ -639,6 +650,7 @@
       (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))
     (run-hook-with-args 'after-make-frame-functions frame)
     frame))