From 7f639b761bfd44c6a07b8417007e1cb8a3a2856c Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 4 Apr 2019 23:00:07 -0700
Subject: genvim: treatment of comments.

* genvim.txr (comments): new variable. Generate "set comments"
command for TXR and TXR Lisp.
---
 genvim.txr | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/genvim.txr b/genvim.txr
index 74e892bc..5b1252b1 100644
--- a/genvim.txr
+++ b/genvim.txr
@@ -57,6 +57,7 @@ static void dir_tables_init(void)
                                               sys:setqf new lnew
                                               meth umeth usl))
                         (list text)))))
+@(bind comments #"\\;\\;\\; \\;\\; \\;")
 @(define generate (txr-p))
 @  (output @(if txr-p "txr.vim" "tl.vim") :named out)
 " VIM Syntax file for txr
@@ -221,6 +222,7 @@ hi def link txr_ign_bkt Comment
 let b:current_syntax = "lisp"
 
 set lispwords=@{lispwords ","},:method,:function,:init,:postinit,:fini
+set comments=@{[mapcar (ret `:@(if txr-p #\@ "")@1`) comments] ","}
 @  (end)
 @(end)
 @(generate t)
-- 
cgit v1.2.3