Mercurial > emacs
changeset 83110:43581c3f182f
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
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Mon, 19 Apr 2004 15:39:17 +0000 |
| parents | 1707638677c9 |
| children | fd147ed0d1b8 |
| files | lisp/frame.el |
| diffstat | 1 files changed, 12 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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))