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);