From: Po Lu <luangruo@yahoo.com>
Date: Sun, 24 Apr 2022 05:44:07 +0000 (+0000)
Subject: * lisp/term/haiku-win.el (x-colors): Also update with system colors.
X-Git-Tag: emacs-29.0.90~1931^2~335
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66ad6564a22e013b3f4091ba851b7a115b5970a4;p=emacs.git

* lisp/term/haiku-win.el (x-colors): Also update with system colors.
---

diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el
index dddad544fa3..c83e0a5c3da 100644
--- a/lisp/term/haiku-win.el
+++ b/lisp/term/haiku-win.el
@@ -98,6 +98,9 @@ for more details on the structure of the associations.")
        "B_LINK_VISITED_COLOR" "B_LINK_ACTIVE_COLOR"
        "B_STATUS_BAR_COLOR" "B_SUCCESS_COLOR" "B_FAILURE_COLOR"])
 
+;; Also update `x-colors' to take that into account.
+(setq x-colors (append haiku-allowed-ui-colors x-colors))
+
 (defun haiku-selection-bounds (value)
   "Return bounds of selection value VALUE.
 The return value is a list (BEG END BUF) if VALUE is a cons of