mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

A simple implementation for display-local frame parameters.

Browse Source 
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
This commit is contained in:
Karoly Lorentey 2004-04-19 15:39:17 +00:00
parent de93c7914c
commit bf1ba39f77
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/frame.el
View File

@ -39,6 +39,17 @@ The window system startup file should add its frame creation
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 @@ 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))
(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))