diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/frame.c | 10 |
1 files 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 () | |||
| 1621 | /* If we're not using multi-frame stuff, we still need to provide some | 1621 | /* If we're not using multi-frame stuff, we still need to provide some |
| 1622 | support functions. */ | 1622 | support functions. */ |
| 1623 | 1623 | ||
| 1624 | Lisp_Object Vterminal_frame; | ||
| 1625 | |||
| 1624 | /* Unless this function is defined, providing set-frame-height and | 1626 | /* Unless this function is defined, providing set-frame-height and |
| 1625 | set-frame-width doesn't help compatibility any, since they both | 1627 | set-frame-width doesn't help compatibility any, since they both |
| 1626 | want this as their first argument. */ | 1628 | want this as their first argument. */ |
| @@ -1812,6 +1814,10 @@ and nil for X and Y.") | |||
| 1812 | 1814 | ||
| 1813 | syms_of_frame () | 1815 | syms_of_frame () |
| 1814 | { | 1816 | { |
| 1817 | DEFVAR_LISP ("terminal-frame", &Vterminal_frame, | ||
| 1818 | "The initial frame-object, which represents Emacs's stdout."); | ||
| 1819 | XFASTINT (Vterminal_frame) = 0; | ||
| 1820 | |||
| 1815 | defsubr (&Sselected_frame); | 1821 | defsubr (&Sselected_frame); |
| 1816 | defsubr (&Sframep); | 1822 | defsubr (&Sframep); |
| 1817 | defsubr (&Sframe_char_height); | 1823 | defsubr (&Sframe_char_height); |
| @@ -1835,7 +1841,3 @@ keys_of_frame () | |||
| 1835 | } | 1841 | } |
| 1836 | 1842 | ||
| 1837 | #endif /* not MULTI_FRAME */ | 1843 | #endif /* not MULTI_FRAME */ |
| 1838 | |||
| 1839 | |||
| 1840 | |||
| 1841 | |||