aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman1995-11-11 23:50:10 +0000
committerRichard M. Stallman1995-11-11 23:50:10 +0000
commita1aaa23f9f2c12773f301a0fb427db34d425edb9 (patch)
tree8e3d171c3b7d3b468252c6920692b7fd8c65c7db /src
parentae44f7a443877676e3c432099df2e54f06834417 (diff)
downloademacs-a1aaa23f9f2c12773f301a0fb427db34d425edb9.tar.gz
emacs-a1aaa23f9f2c12773f301a0fb427db34d425edb9.zip
(syms_of_frame_1): Set up Vdefault_frame_alist here.
(syms_of_frame): Not here. (Vdefault_frame_alist): Definition now unconditional.
Diffstat (limited to 'src')
-rw-r--r--src/frame.c28
1 files changed, 14 insertions, 14 deletions
diff --git a/src/frame.c b/src/frame.c
index c6c7cbb95d3..173f84e1cd1 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -81,6 +81,7 @@ Lisp_Object Qvisible;
81Lisp_Object Qbuffer_predicate; 81Lisp_Object Qbuffer_predicate;
82 82
83Lisp_Object Vterminal_frame; 83Lisp_Object Vterminal_frame;
84Lisp_Object Vdefault_frame_alist;
84 85
85Lisp_Object Qmouse_leave_buffer_hook; 86Lisp_Object Qmouse_leave_buffer_hook;
86 87
@@ -121,6 +122,19 @@ syms_of_frame_1 ()
121 122
122 Qmouse_leave_buffer_hook = intern ("mouse-leave-buffer-hook"); 123 Qmouse_leave_buffer_hook = intern ("mouse-leave-buffer-hook");
123 staticpro (&Qmouse_leave_buffer_hook); 124 staticpro (&Qmouse_leave_buffer_hook);
125
126 DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist,
127 "Alist of default values for frame creation.\n\
128These may be set in your init file, like this:\n\
129 (setq default-frame-alist '((width . 80) (height . 55) (menu-bar-lines . 1))\n\
130These override values given in window system configuration data,\n\
131 including X Windows' defaults database.\n\
132For values specific to the first Emacs frame, see `initial-frame-alist'.\n\
133For values specific to the separate minibuffer frame, see\n\
134 `minibuffer-frame-alist'.\n\
135The `menu-bar-lines' element of the list controls whether new frames\n\
136 have menu bars; `menu-bar-mode' works by altering this element.");
137 Vdefault_frame_alist = Qnil;
124} 138}
125 139
126static void 140static void
@@ -185,7 +199,6 @@ set_menu_bar_lines (f, value, oldval)
185 199
186Lisp_Object Vemacs_iconified; 200Lisp_Object Vemacs_iconified;
187Lisp_Object Vframe_list; 201Lisp_Object Vframe_list;
188Lisp_Object Vdefault_frame_alist;
189 202
190extern Lisp_Object Vminibuffer_list; 203extern Lisp_Object Vminibuffer_list;
191extern Lisp_Object get_minibuffer (); 204extern Lisp_Object get_minibuffer ();
@@ -2000,19 +2013,6 @@ this variable doesn't necessarily say anything meaningful about the\n\
2000current set of frames, or where the minibuffer is currently being\n\ 2013current set of frames, or where the minibuffer is currently being\n\
2001displayed."); 2014displayed.");
2002 2015
2003 DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist,
2004 "Alist of default values for frame creation.\n\
2005These may be set in your init file, like this:\n\
2006 (setq default-frame-alist '((width . 80) (height . 55) (menu-bar-lines . 1))\n\
2007These override values given in window system configuration data,\n\
2008 including X Windows' defaults database.\n\
2009For values specific to the first Emacs frame, see `initial-frame-alist'.\n\
2010For values specific to the separate minibuffer frame, see\n\
2011 `minibuffer-frame-alist'.\n\
2012The `menu-bar-lines' element of the list controls whether new frames\n\
2013 have menu bars; `menu-bar-mode' works by altering this element.");
2014 Vdefault_frame_alist = Qnil;
2015
2016 defsubr (&Sactive_minibuffer_window); 2016 defsubr (&Sactive_minibuffer_window);
2017 defsubr (&Sframep); 2017 defsubr (&Sframep);
2018 defsubr (&Sframe_live_p); 2018 defsubr (&Sframe_live_p);