From 62d1ded8ee9e5be68c7c2545b047c929e9ff63fd Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 1 Jul 2015 21:36:22 -0700
Subject: * genman.txr: Take advantage of \@ escape in quasilit.

* genvim.txr (txr_escat): New match category containing \@.
Colorized a String.
(txr_quasilit): Contains txr_escat. Thus, \@ looks like any
other escape inside a quasilit.
---
 genman.txr | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'genman.txr')

diff --git a/genman.txr b/genman.txr
index ce70cbb7..77a84016 100644
--- a/genman.txr
+++ b/genman.txr
@@ -108,7 +108,7 @@ This document was created by
                                                          (tag (or [txlhash tok]
                                                                   [@@2 tok])))
                                                  (if tag
-                                                   `@[@1 0](<A HREF="#@tag">@tok</A>`
+                                                   `\@(<A HREF="#@tag">@tok</A>`
                                                    @1)) @1)))
                              (regsub #/[\(\[][^ )&]+/
                                      (do let* ((tok [@1 1..:])
-- 
cgit v1.2.3