Mercurial > emacs
comparison src/frame.c @ 11169:d0550c056e5b
[MULTI_FRAME] (Factive_minibuffer_window): New function.
[MULTI_FRAME] (syms_of_frame): Defsubr it.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 31 Mar 1995 17:47:32 +0000 |
parents | 786f1c82a38e |
children | 2f9a24a4c9eb |
comparison
equal
deleted
inserted
replaced
11168:0d016216ea29 | 11169:d0550c056e5b |
---|---|
1 /* Generic frame functions. | 1 /* Generic frame functions. |
2 Copyright (C) 1993, 1994 Free Software Foundation. | 2 Copyright (C) 1993, 1994, 1995 Free Software Foundation. |
3 | 3 |
4 This file is part of GNU Emacs. | 4 This file is part of GNU Emacs. |
5 | 5 |
6 GNU Emacs is free software; you can redistribute it and/or modify | 6 GNU Emacs is free software; you can redistribute it and/or modify |
7 it under the terms of the GNU General Public License as published by | 7 it under the terms of the GNU General Public License as published by |
552 w = XWINDOW (w)->vchild; | 552 w = XWINDOW (w)->vchild; |
553 else | 553 else |
554 abort (); | 554 abort (); |
555 } | 555 } |
556 return w; | 556 return w; |
557 } | |
558 | |
559 DEFUN ("active-minibuffer-window", Factive_minibuffer_window, | |
560 Sactive_minibuffer_window, 0, 0, 0, | |
561 "Return the currently active minibuffer window, or nil if none.") | |
562 () | |
563 { | |
564 return minibuf_level ? minibuf_window : Qnil; | |
557 } | 565 } |
558 | 566 |
559 DEFUN ("frame-root-window", Fframe_root_window, Sframe_root_window, 0, 1, 0, | 567 DEFUN ("frame-root-window", Fframe_root_window, Sframe_root_window, 0, 1, 0, |
560 "Returns the root-window of FRAME.\n\ | 568 "Returns the root-window of FRAME.\n\ |
561 If omitted, FRAME defaults to the currently selected frame.") | 569 If omitted, FRAME defaults to the currently selected frame.") |
1865 `minibuffer-frame-alist'.\n\ | 1873 `minibuffer-frame-alist'.\n\ |
1866 The `menu-bar-lines' element of the list controls whether new frames\n\ | 1874 The `menu-bar-lines' element of the list controls whether new frames\n\ |
1867 have menu bars; `menu-bar-mode' works by altering this element."); | 1875 have menu bars; `menu-bar-mode' works by altering this element."); |
1868 Vdefault_frame_alist = Qnil; | 1876 Vdefault_frame_alist = Qnil; |
1869 | 1877 |
1878 defsubr (&Sactive_minibuffer_window); | |
1870 defsubr (&Sframep); | 1879 defsubr (&Sframep); |
1871 defsubr (&Sframe_live_p); | 1880 defsubr (&Sframe_live_p); |
1872 defsubr (&Smake_terminal_frame); | 1881 defsubr (&Smake_terminal_frame); |
1873 defsubr (&Shandle_switch_frame); | 1882 defsubr (&Shandle_switch_frame); |
1874 defsubr (&Sselect_frame); | 1883 defsubr (&Sselect_frame); |