diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-01-05 22:19:54 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-01-05 22:19:54 +0000 |
commit | 7087eb476a073ded60b4e2527f8453c3065f2f55 (patch) | |
tree | d7e028c7a22404b33d6c6b8f75eb937b75a203ae | |
parent | 75da3b8caf9bdb12a5693f259e330be63fe14fb0 (diff) | |
download | emacs-7087eb476a073ded60b4e2527f8453c3065f2f55.tar.gz |
[!MULTI_FRAME] (window_frame): New function.
[!MULTI_FRAME] (syms_of_frame): defsubr it.
-rw-r--r-- | src/frame.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/frame.c b/src/frame.c index 7ad3c1fbe44..a591f69252d 100644 --- a/src/frame.c +++ b/src/frame.c @@ -1890,6 +1890,20 @@ DEFUN ("selected-frame", Fselected_frame, Sselected_frame, 0, 0, 0, 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 @@ syms_of_frame () XSETFASTINT (Vterminal_frame, 0); defsubr (&Sselected_frame); + defsubr (&Swindow_frame); defsubr (&Sframe_first_window); defsubr (&Sframep); defsubr (&Sframe_char_height); |