From: Po Lu <luangruo@yahoo.com>
Date: Wed, 25 May 2022 02:17:46 +0000 (+0000)
Subject: Fix cursor color adjustment on Haiku
X-Git-Tag: emacs-29.0.90~1910^2~438
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=822350d1984bf478becee57e8eede297ac3753d0;p=emacs.git

Fix cursor color adjustment on Haiku

* src/haikufns.c (haiku_set_foreground_color): Maybe set cursor
color correctly if it was equal to the old foreground color.
---

diff --git a/src/haikufns.c b/src/haikufns.c
index a08b43879e3..cf64eff7022 100644
--- a/src/haikufns.c
+++ b/src/haikufns.c
@@ -639,14 +639,8 @@ haiku_set_foreground_color (struct frame *f, Lisp_Object arg, Lisp_Object oldval
 
   if (FRAME_HAIKU_WINDOW (f))
     {
-
       if (output->cursor_color.pixel == old_fg)
-	{
-	  output->cursor_color.pixel = old_fg;
-	  output->cursor_color.red = RED_FROM_ULONG (old_fg);
-	  output->cursor_color.green = GREEN_FROM_ULONG (old_fg);
-	  output->cursor_color.blue = BLUE_FROM_ULONG (old_fg);
-	}
+	haiku_query_color (fg, &output->cursor_color);
 
       update_face_from_frame_parameter (f, Qforeground_color, arg);