* 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 dddad544fa358e285b324d120b983ab7452abd13..c83e0a5c3da0b8f2bb7b8361e6bec3251b968276 100644 (file)
--- 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