From: Yuuki Harano <masm+github@masm11.me>
Date: Sat, 11 Apr 2020 14:36:36 +0000 (+0900)
Subject: follow x_set_internal_border_width change.
X-Git-Tag: emacs-29.0.90~3809
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4de4d9ee7eeb0407346546f21cd0911a8cda337b;p=emacs.git

follow x_set_internal_border_width change.

	* ../src/pgtkfns.c (x_set_internal_border_width):
---

diff --git a/src/pgtkfns.c b/src/pgtkfns.c
index b7d34d56803..9078a78e060 100644
--- a/src/pgtkfns.c
+++ b/src/pgtkfns.c
@@ -647,20 +647,18 @@ x_set_tool_bar_lines (struct frame *f, Lisp_Object value, Lisp_Object oldval)
 static void
 x_set_internal_border_width (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
 {
-  int old_width = FRAME_INTERNAL_BORDER_WIDTH (f);
+  int border = check_int_nonnegative (arg);
 
-  CHECK_TYPE_RANGED_INTEGER (int, arg);
-  f->internal_border_width = XFIXNUM (arg);
-  if (FRAME_INTERNAL_BORDER_WIDTH (f) < 0)
-    f->internal_border_width = 0;
-
-  if (FRAME_INTERNAL_BORDER_WIDTH (f) == old_width)
-    return;
-
-  if (FRAME_X_WINDOW (f) != 0)
-    adjust_frame_size (f, -1, -1, 3, 0, Qinternal_border_width);
+  if (border != FRAME_INTERNAL_BORDER_WIDTH (f))
+    {
+      f->internal_border_width = border;
 
-  SET_FRAME_GARBAGED (f);
+      if (FRAME_X_WINDOW (f))
+	{
+	  adjust_frame_size (f, -1, -1, 3, false, Qinternal_border_width);
+	  pgtk_clear_under_internal_border (f);
+	}
+    }
 }