From: Yuuki Harano <masm@masm11.ddo.jp>
Date: Mon, 8 Jan 2018 12:21:55 +0000 (+0900)
Subject: Add set_skip_taskbar frame parm
X-Git-Tag: emacs-29.0.90~3857
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f15c6a408d88c13943c935f71626fc208eafcfed;p=emacs.git

Add set_skip_taskbar frame parm

* src/pgtkfns.c (x_set_skip_taskbar, pgtk_frame_parm_handlers):
  Add set_skip_taskbar
---

diff --git a/src/pgtkfns.c b/src/pgtkfns.c
index aa46461d24e..67391fac86f 100644
--- a/src/pgtkfns.c
+++ b/src/pgtkfns.c
@@ -655,6 +655,26 @@ x_set_undecorated (struct frame *f, Lisp_Object new_value, Lisp_Object old_value
     }
 }
 
+/**
+ * x_set_skip_taskbar:
+ *
+ * Set frame F's `skip-taskbar' parameter.  If non-nil, this should
+ * remove F's icon from the taskbar associated with the display of F's
+ * window-system window and inhibit switching to F's window via
+ * <Alt>-<TAB>.  If nil, lift these restrictions.
+ *
+ * Some window managers may not honor this parameter.
+ */
+static void
+x_set_skip_taskbar (struct frame *f, Lisp_Object new_value, Lisp_Object old_value)
+{
+  if (!EQ (new_value, old_value))
+    {
+      xg_set_skip_taskbar (f, new_value);
+      FRAME_SKIP_TASKBAR (f) = !NILP (new_value);
+    }
+}
+
 /**
  * x_set_override_redirect:
  *
@@ -721,9 +741,9 @@ frame_parm_handler pgtk_frame_parm_handlers[] =
   0, /* x_set_sticky */
   0, /* x_set_tool_bar_position */
   0, /* x_set_inhibit_double_buffering */
-  x_set_undecorated
+  x_set_undecorated,
   0, /* x_set_parent_frame, */
-  0, /* x_set_skip_taskbar */
+  x_set_skip_taskbar,
   x_set_no_focus_on_map,
   x_set_no_accept_focus,
   x_set_z_group,