emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/pgtk fde74fa 028/100: implement pgtk-frame-list-z-order same as


From: Yuuki Harano
Subject: feature/pgtk fde74fa 028/100: implement pgtk-frame-list-z-order same as frame-list.
Date: Tue, 24 Nov 2020 08:02:30 -0500 (EST)

branch: feature/pgtk
commit fde74fa8b9ac3886ca8370e3aaea562fa8408ced
Author: Yuuki Harano <masm+github@masm11.me>
Commit: Jeff Walsh <fejfighter@gmail.com>

    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 a8f8176..52fc656 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,



reply via email to

[Prev in Thread] Current Thread [Next in Thread]