From fde74fa8b9ac3886ca8370e3aaea562fa8408ced Mon Sep 17 00:00:00 2001 From: Yuuki Harano Date: Fri, 26 Jul 2019 01:47:48 +0900 Subject: [PATCH] implement pgtk-frame-list-z-order same as frame-list. * src/pgtkfns.c (Fpgtk_frame_list_z_order): return frame list as it's the same --- src/pgtkfns.c | 26 ++++---------------------- 1 file changed, 4 insertions(+), 22 deletions(-) diff --git a/src/pgtkfns.c b/src/pgtkfns.c index a8f81761b3d..52fc65694ba 100644 --- a/src/pgtkfns.c +++ b/src/pgtkfns.c @@ -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, -- 2.39.5