From fbfa1e382f8e6eacdd463cd90f3ded3cb6a9ad89 Mon Sep 17 00:00:00 2001
From: ADAM David Alan Martin <adam@recursive.engineer>
Date: Wed, 29 Jul 2026 19:45:11 -0400
Subject: [PATCH] Fix substitution on older TCSH.

---
 tcshrc.lscolors    | 2 +-
 tcshrc.prompt.defs | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/tcshrc.lscolors b/tcshrc.lscolors
index 4a6032a..0361fc3 100644
--- a/tcshrc.lscolors
+++ b/tcshrc.lscolors
@@ -73,7 +73,7 @@ foreach color ( ${cshenv_ls_colors} )
 	#_debug "Split: ${split}"
 	#_debug "First: ${split[1]}"
 	_debug "Match: ${match}"
-	_debug "Match: ${match:as/./*./}"
+	_debug "Match: ${match:as/./*----------/:as/----------/./}"
 	_debug "Args: ${args}"
 	_debug "${args:as/,/ /}"
 	if ( $?CSHENV_DEBUG ) then
diff --git a/tcshrc.prompt.defs b/tcshrc.prompt.defs
index 584acdf..328c593 100644
--- a/tcshrc.prompt.defs
+++ b/tcshrc.prompt.defs
@@ -145,8 +145,8 @@ set referencechars_raw="${referencechars_raw} 2620"
 
 _debug "Building unicode sigils table...."
 if( ! $?CSHENV_NO_UNICODE_PRINTF ) then
-	_debug "${referencechars_raw:as/ / 0000/:as/ 00001/ 0001/:as/ / \U/}"
-	set referencechars_original=( `printf "${referencechars_raw:as/ / 0000/:as/ 00001/ 0001/:as/ / \\U/}"` )
+	_debug "${referencechars_raw:as/ /_\U0000/:as/_/ /:as/ 00001/ 0001/}"
+	set referencechars_original=( `printf "${referencechars_raw:as/ /_\U0000/:as/_/ /:as/ 00001/ 0001/}"` )
 else
 	# Safe fallback for when there's no unicode printf
 	set referencechars_original="A B C D X Y Z"