mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-02 11:50:48 -08:00
Code Issues Projects Releases Wiki Activity

implement pgtk-frame-list-z-order same as frame-list.

Browse source 
* src/pgtkfns.c (Fpgtk_frame_list_z_order): return frame list as it's
the same
This commit is contained in:
Yuuki Harano 2019-07-26 01:47:48 +09:00 • committed by Jeff Walsh
parent b3a20d7a21
commit fde74fa8b9
1 changed files with 4 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/pgtkfns.c
View file

@ -1487,30 +1487,12 @@ DEFUN ("pgtk-frame-list-z-order", Fpgtk_frame_list_z_order,
If TERMINAL is non-nil and specifies a live frame, return the child
frames of that frame in Z (stacking) order.
Frames are listed from topmost (first) to bottommost (last). */)
Frames are listed from topmost (first) to bottommost (last).
On PGTK, this function is identical to frame-list. */)
(Lisp_Object terminal)
{
Lisp_Object frames = Qnil;
#if 0
PGTKWindow *parent = nil;
if (FRAMEP (terminal) && FRAME_LIVE_P (XFRAME (terminal)))
parent = [FRAME_PGTK_VIEW (XFRAME (terminal)) window];
for (PGTKWindow *win in [[NSApp orderedWindows] reverseObjectEnumerator])
{
Lisp_Object frame;
/* Check against [win parentWindow] so that it doesn't match itself. */
if (parent == nil || pgtk_window_is_ancestor (parent, [win parentWindow]))
{
XSETFRAME (frame, ((EmacsView *)[win delegate])->emacsframe);
frames = Fcons(frame, frames);
}
}
#endif
return frames;
return Fframe_list();
}
DEFUN ("pgtk-frame-restack", Fpgtk_frame_restack, Spgtk_frame_restack, 2, 3, 0,