diff options
| author | Richard M. Stallman | 1995-11-11 23:50:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-11-11 23:50:10 +0000 |
| commit | a1aaa23f9f2c12773f301a0fb427db34d425edb9 (patch) | |
| tree | 8e3d171c3b7d3b468252c6920692b7fd8c65c7db /src | |
| parent | ae44f7a443877676e3c432099df2e54f06834417 (diff) | |
| download | emacs-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.c | 28 |
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; | |||
| 81 | Lisp_Object Qbuffer_predicate; | 81 | Lisp_Object Qbuffer_predicate; |
| 82 | 82 | ||
| 83 | Lisp_Object Vterminal_frame; | 83 | Lisp_Object Vterminal_frame; |
| 84 | Lisp_Object Vdefault_frame_alist; | ||
| 84 | 85 | ||
| 85 | Lisp_Object Qmouse_leave_buffer_hook; | 86 | Lisp_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\ | ||
| 128 | These may be set in your init file, like this:\n\ | ||
| 129 | (setq default-frame-alist '((width . 80) (height . 55) (menu-bar-lines . 1))\n\ | ||
| 130 | These override values given in window system configuration data,\n\ | ||
| 131 | including X Windows' defaults database.\n\ | ||
| 132 | For values specific to the first Emacs frame, see `initial-frame-alist'.\n\ | ||
| 133 | For values specific to the separate minibuffer frame, see\n\ | ||
| 134 | `minibuffer-frame-alist'.\n\ | ||
| 135 | The `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 | ||
| 126 | static void | 140 | static void |
| @@ -185,7 +199,6 @@ set_menu_bar_lines (f, value, oldval) | |||
| 185 | 199 | ||
| 186 | Lisp_Object Vemacs_iconified; | 200 | Lisp_Object Vemacs_iconified; |
| 187 | Lisp_Object Vframe_list; | 201 | Lisp_Object Vframe_list; |
| 188 | Lisp_Object Vdefault_frame_alist; | ||
| 189 | 202 | ||
| 190 | extern Lisp_Object Vminibuffer_list; | 203 | extern Lisp_Object Vminibuffer_list; |
| 191 | extern Lisp_Object get_minibuffer (); | 204 | extern Lisp_Object get_minibuffer (); |
| @@ -2000,19 +2013,6 @@ this variable doesn't necessarily say anything meaningful about the\n\ | |||
| 2000 | current set of frames, or where the minibuffer is currently being\n\ | 2013 | current set of frames, or where the minibuffer is currently being\n\ |
| 2001 | displayed."); | 2014 | displayed."); |
| 2002 | 2015 | ||
| 2003 | DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist, | ||
| 2004 | "Alist of default values for frame creation.\n\ | ||
| 2005 | These may be set in your init file, like this:\n\ | ||
| 2006 | (setq default-frame-alist '((width . 80) (height . 55) (menu-bar-lines . 1))\n\ | ||
| 2007 | These override values given in window system configuration data,\n\ | ||
| 2008 | including X Windows' defaults database.\n\ | ||
| 2009 | For values specific to the first Emacs frame, see `initial-frame-alist'.\n\ | ||
| 2010 | For values specific to the separate minibuffer frame, see\n\ | ||
| 2011 | `minibuffer-frame-alist'.\n\ | ||
| 2012 | The `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); |