Mercurial > emacs
comparison src/frame.c @ 12987:bca5676d8cb9
[!MULTI_FRAME] (Factive_minibuffer_window): New function.
[!MULTI_FRAME] (syms_of_frame): defsubr it.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 02 Sep 1995 16:20:15 +0000 |
parents | 639f9d12f0f8 |
children | 22011e724596 |
comparison
equal
deleted
inserted
replaced
12986:180f04639e71 | 12987:bca5676d8cb9 |
---|---|
2089 Lisp_Object tem; | 2089 Lisp_Object tem; |
2090 XSETFASTINT (tem, 0); | 2090 XSETFASTINT (tem, 0); |
2091 return tem; | 2091 return tem; |
2092 } | 2092 } |
2093 | 2093 |
2094 DEFUN ("active-minibuffer-window", Factive_minibuffer_window, | |
2095 Sactive_minibuffer_window, 0, 0, 0, | |
2096 /* Don't confuse make-docfile by having two doc strings for this function. | |
2097 make-docfile does not pay attention to #if, for good reason! */ | |
2098 0) | |
2099 () | |
2100 { | |
2101 return minibuf_level ? minibuf_window : Qnil; | |
2102 } | |
2103 | |
2094 DEFUN ("window-frame", Fwindow_frame, Swindow_frame, 1, 1, 0, | 2104 DEFUN ("window-frame", Fwindow_frame, Swindow_frame, 1, 1, 0, |
2095 /* Don't confuse make-docfile by having two doc strings for this function. | 2105 /* Don't confuse make-docfile by having two doc strings for this function. |
2096 make-docfile does not pay attention to #if, for good reason! */ | 2106 make-docfile does not pay attention to #if, for good reason! */ |
2097 0) | 2107 0) |
2098 (window) | 2108 (window) |
2427 make-docfile does not pay attention to #if, for good reason! */ | 2437 make-docfile does not pay attention to #if, for good reason! */ |
2428 0); | 2438 0); |
2429 XSETFASTINT (Vterminal_frame, 0); | 2439 XSETFASTINT (Vterminal_frame, 0); |
2430 | 2440 |
2431 defsubr (&Sselected_frame); | 2441 defsubr (&Sselected_frame); |
2442 defsubr (&Sactive_minibuffer_window); | |
2432 defsubr (&Swindow_frame); | 2443 defsubr (&Swindow_frame); |
2433 defsubr (&Sframe_first_window); | 2444 defsubr (&Sframe_first_window); |
2434 defsubr (&Sframep); | 2445 defsubr (&Sframep); |
2435 defsubr (&Sframe_char_height); | 2446 defsubr (&Sframe_char_height); |
2436 defsubr (&Sframe_char_width); | 2447 defsubr (&Sframe_char_width); |