genvim: treatment of comments.

* genvim.txr (comments): new variable. Generate "set comments"
command for TXR and TXR Lisp.

1 files changed, 2 insertions, 0 deletions

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)