From 91f5a8d77900b7f3fe8034f98fe07f33b6e7d546 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 15 Mar 1994 00:25:00 +0000 Subject: [PATCH] (terminal-frame) [! MULTI_FRAME]: Create this variable. --- src/frame.c | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/frame.c b/src/frame.c index 6a422d037a2..df5ff2b4d2e 100644 --- a/src/frame.c +++ b/src/frame.c @@ -1621,6 +1621,8 @@ keys_of_frame () /* If we're not using multi-frame stuff, we still need to provide some support functions. */ +Lisp_Object Vterminal_frame; + /* Unless this function is defined, providing set-frame-height and set-frame-width doesn't help compatibility any, since they both want this as their first argument. */ @@ -1812,6 +1814,10 @@ and nil for X and Y.") syms_of_frame () { + DEFVAR_LISP ("terminal-frame", &Vterminal_frame, + "The initial frame-object, which represents Emacs's stdout."); + XFASTINT (Vterminal_frame) = 0; + defsubr (&Sselected_frame); defsubr (&Sframep); defsubr (&Sframe_char_height); @@ -1835,7 +1841,3 @@ keys_of_frame () } #endif /* not MULTI_FRAME */ - - - - -- 2.39.5