diff options
| author | Karl Heuer | 1995-05-09 05:17:02 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-05-09 05:17:02 +0000 |
| commit | c60f3a6a6799ac0bcb4215b2041e75488bec52ab (patch) | |
| tree | f66ec85b2dd4bd21b04b475865fd1d3cf212530e /src | |
| parent | 2db45b7b38e4e918a643bcd883b1f9089c8a1e24 (diff) | |
| download | emacs-c60f3a6a6799ac0bcb4215b2041e75488bec52ab.tar.gz emacs-c60f3a6a6799ac0bcb4215b2041e75488bec52ab.zip | |
Vdefault_minibuffer_frame is now part of KBOARD instead
of a variable. All references changed.
Diffstat (limited to 'src')
| -rw-r--r-- | src/frame.c | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/src/frame.c b/src/frame.c index ad6a9a87c2f..40bf808e785 100644 --- a/src/frame.c +++ b/src/frame.c | |||
| @@ -39,7 +39,6 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |||
| 39 | Lisp_Object Vemacs_iconified; | 39 | Lisp_Object Vemacs_iconified; |
| 40 | Lisp_Object Vframe_list; | 40 | Lisp_Object Vframe_list; |
| 41 | Lisp_Object Vterminal_frame; | 41 | Lisp_Object Vterminal_frame; |
| 42 | Lisp_Object Vdefault_minibuffer_frame; | ||
| 43 | Lisp_Object Vdefault_frame_alist; | 42 | Lisp_Object Vdefault_frame_alist; |
| 44 | 43 | ||
| 45 | /* Evaluate this expression to rebuild the section of syms_of_frame | 44 | /* Evaluate this expression to rebuild the section of syms_of_frame |
| @@ -265,11 +264,11 @@ make_frame_without_minibuffer (mini_window, kb) | |||
| 265 | /* Choose the minibuffer window to use. */ | 264 | /* Choose the minibuffer window to use. */ |
| 266 | if (NILP (mini_window)) | 265 | if (NILP (mini_window)) |
| 267 | { | 266 | { |
| 268 | if (!FRAMEP (Vdefault_minibuffer_frame)) | 267 | if (!FRAMEP (kb->Vdefault_minibuffer_frame)) |
| 269 | error ("default-minibuffer-frame must be set when creating minibufferless frames"); | 268 | error ("default-minibuffer-frame must be set when creating minibufferless frames"); |
| 270 | if (! FRAME_LIVE_P (XFRAME (Vdefault_minibuffer_frame))) | 269 | if (! FRAME_LIVE_P (XFRAME (kb->Vdefault_minibuffer_frame))) |
| 271 | error ("default-minibuffer-frame must be a live frame"); | 270 | error ("default-minibuffer-frame must be a live frame"); |
| 272 | mini_window = XFRAME (Vdefault_minibuffer_frame)->minibuffer_window; | 271 | mini_window = XFRAME (kb->Vdefault_minibuffer_frame)->minibuffer_window; |
| 273 | } | 272 | } |
| 274 | else | 273 | else |
| 275 | { | 274 | { |
| @@ -1018,7 +1017,7 @@ but if the second optional argument FORCE is non-nil, you may do so.") | |||
| 1018 | /* If we've deleted Vdefault_minibuffer_frame, try to find another | 1017 | /* If we've deleted Vdefault_minibuffer_frame, try to find another |
| 1019 | one. Prefer minibuffer-only frames, but also notice frames | 1018 | one. Prefer minibuffer-only frames, but also notice frames |
| 1020 | with other windows. */ | 1019 | with other windows. */ |
| 1021 | if (EQ (frame, Vdefault_minibuffer_frame)) | 1020 | if (EQ (frame, FRAME_KBOARD (f)->Vdefault_minibuffer_frame)) |
| 1022 | { | 1021 | { |
| 1023 | Lisp_Object frames; | 1022 | Lisp_Object frames; |
| 1024 | 1023 | ||
| @@ -1054,7 +1053,7 @@ but if the second optional argument FORCE is non-nil, you may do so.") | |||
| 1054 | if (NILP (frame_with_minibuf)) | 1053 | if (NILP (frame_with_minibuf)) |
| 1055 | abort (); | 1054 | abort (); |
| 1056 | 1055 | ||
| 1057 | Vdefault_minibuffer_frame = frame_with_minibuf; | 1056 | FRAME_KBOARD (f)->Vdefault_minibuffer_frame = frame_with_minibuf; |
| 1058 | } | 1057 | } |
| 1059 | 1058 | ||
| 1060 | return Qnil; | 1059 | return Qnil; |
| @@ -1874,7 +1873,7 @@ syms_of_frame () | |||
| 1874 | "Non-nil if all of emacs is iconified and frame updates are not needed."); | 1873 | "Non-nil if all of emacs is iconified and frame updates are not needed."); |
| 1875 | Vemacs_iconified = Qnil; | 1874 | Vemacs_iconified = Qnil; |
| 1876 | 1875 | ||
| 1877 | DEFVAR_LISP ("default-minibuffer-frame", &Vdefault_minibuffer_frame, | 1876 | DEFVAR_KBOARD ("default-minibuffer-frame", Vdefault_minibuffer_frame, |
| 1878 | "Minibufferless frames use this frame's minibuffer.\n\ | 1877 | "Minibufferless frames use this frame's minibuffer.\n\ |
| 1879 | \n\ | 1878 | \n\ |
| 1880 | Emacs cannot create minibufferless frames unless this is set to an\n\ | 1879 | Emacs cannot create minibufferless frames unless this is set to an\n\ |
| @@ -1886,7 +1885,6 @@ minibuffer, no matter what this variable is set to. This means that\n\ | |||
| 1886 | this variable doesn't necessarily say anything meaningful about the\n\ | 1885 | this variable doesn't necessarily say anything meaningful about the\n\ |
| 1887 | current set of frames, or where the minibuffer is currently being\n\ | 1886 | current set of frames, or where the minibuffer is currently being\n\ |
| 1888 | displayed."); | 1887 | displayed."); |
| 1889 | Vdefault_minibuffer_frame = Qnil; | ||
| 1890 | 1888 | ||
| 1891 | DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist, | 1889 | DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist, |
| 1892 | "Alist of default values for frame creation.\n\ | 1890 | "Alist of default values for frame creation.\n\ |