From 7f0e34424af36acb4846497f6a847d4008dec48f Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Wed, 17 Jul 2024 03:36:03 -0400
Subject: listbas: don't print duplicate color codes for "(" ops.

---
 listbas.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'listbas.c')

diff --git a/listbas.c b/listbas.c
index fe2cbd4..ee4c68c 100644
--- a/listbas.c
+++ b/listbas.c
@@ -422,7 +422,7 @@ void print_mixed_case(const char *name) {
 	while(( c = *name++)) {
 		if(c >= 'A' && c <= 'Z')
 			c |= 0x20;
-		if(color && c == '(') color_on(color_op);
+		if(color && c == '(' && cur_color != color_op) color_on(color_op);
 		outchr(c);
 	}
 }
-- 
cgit v1.2.3