From: Po Lu <luangruo@yahoo.com>
Date: Sun, 22 May 2022 07:33:50 +0000 (+0800)
Subject: Fix build with --enable-check-lisp-object-type
X-Git-Tag: emacs-29.0.90~1910^2~529
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9988047f476763424b1e763118da5aa489aa5d7d;p=emacs.git

Fix build with --enable-check-lisp-object-type

* src/xterm.c (handle_one_xevent): Fix use of Fequal.  Reported
by Jashank Jeremy <jashank@rulingia.com.au>.
---

diff --git a/src/xterm.c b/src/xterm.c
index 0487259bf02..c6c0a2f9153 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -20159,8 +20159,8 @@ handle_one_xevent (struct x_display_info *dpyinfo,
 	  current_monitors
 	    = Fx_display_monitor_attributes_list (inev.ie.arg);
 
-	  if (Fequal (current_monitors,
-		      dpyinfo->last_monitor_attributes_list))
+	  if (!NILP (Fequal (current_monitors,
+			     dpyinfo->last_monitor_attributes_list)))
 	    inev.ie.kind = NO_EVENT;
 
 	  dpyinfo->last_monitor_attributes_list = current_monitors;