Mercurial > emacs
changeset 10350:9ef4bfc9a320
[!MULTI_FRAME] (window_frame): New function.
[!MULTI_FRAME] (syms_of_frame): defsubr it.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 05 Jan 1995 22:19:54 +0000 |
| parents | e5638e0a5a60 |
| children | e34cbd5276bd |
| files | src/frame.c |
| diffstat | 1 files changed, 15 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/frame.c Thu Jan 05 22:11:35 1995 +0000 +++ b/src/frame.c Thu Jan 05 22:19:54 1995 +0000 @@ -1890,6 +1890,20 @@ return tem; } +DEFUN ("window-frame", Fwindow_frame, Swindow_frame, 1, 1, 0, + /* Don't confuse make-docfile by having two doc strings for this function. + make-docfile does not pay attention to #if, for good reason! */ + 0) + (window) + Lisp_Object window; +{ + /* For your possible information, this code is unfolded into the + second WINDOW_FRAME in frame.h. */ + Lisp_Object tem; + XSETFASTINT (tem, 0); + return tem; +} + DEFUN ("frame-first-window", Fframe_first_window, Sframe_first_window, 0, 1, 0, 0) (frame) @@ -2201,6 +2215,7 @@ XSETFASTINT (Vterminal_frame, 0); defsubr (&Sselected_frame); + defsubr (&Swindow_frame); defsubr (&Sframe_first_window); defsubr (&Sframep); defsubr (&Sframe_char_height);