From 6c111dfd2b1e52d3c303f3d20e00f5227864f325 Mon Sep 17 00:00:00 2001 From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com> Date: Wed, 7 Jan 2026 03:43:33 +0000 Subject: [PATCH] Fix pcase syntax error in tp-palette-pure function Fixed the pcase branches for tp-palette-bg-p and tp-palette-fbg-p predicates which had an extra `symbol` keyword incorrectly placed between the pattern and the return expression. This caused these branches to return the original symbol instead of the processed intern result, leading to tp-palette settings not taking effect when using palettes with -bg or -fbg suffixes. Co-authored-by: Kinneyzhang <38454496+Kinneyzhang@users.noreply.github.com> --- tp-palette.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tp-palette.el b/tp-palette.el index 405f54e..406950b 100644 --- a/tp-palette.el +++ b/tp-palette.el @@ -257,9 +257,9 @@ Returns nil if SYMBOL is unbound or doesn't contain :border." ((pred tp-palette-p) symbol) ((pred tp-palette-fg-p) (intern (string-trim-right (symbol-name symbol) "-fg"))) - ((pred tp-palette-bg-p) symbol + ((pred tp-palette-bg-p) (intern (string-trim-right (symbol-name symbol) "-bg"))) - ((pred tp-palette-fbg-p) symbol + ((pred tp-palette-fbg-p) (intern (string-trim-right (symbol-name symbol) "-fbg"))) ((pred tp-palette-border-p) (intern (string-trim-right (symbol-name symbol) "-border")))