diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2013-11-05 00:27:17 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2013-11-05 00:27:41 -0800 |
| commit | fb817f77ecad88117b4c5a98c1c8b6adbf492dec (patch) | |
| tree | 42436586e8a7d073989c03094d419568f65f1118 /genvim.txr | |
| parent | 680e658f58e9bf7786800668725ff59a1963b793 (diff) | |
| download | txr-fb817f77ecad88117b4c5a98c1c8b6adbf492dec.tar.gz txr-fb817f77ecad88117b4c5a98c1c8b6adbf492dec.tar.bz2 txr-fb817f77ecad88117b4c5a98c1c8b6adbf492dec.zip | |
* genvim.txr: Handle symbols whose C names end with _star_s,
and also ones with underscores.
* txr.vim: Updated.
Diffstat (limited to 'genvim.txr')
| -rw-r--r-- | genvim.txr | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -13,6 +13,9 @@ void eval_init(void) { @(collect) @ (cases) + sethash(op_table, @{txl-sym-nostar}_star_s,@(skip) +@ (bind txl-sym `@{txl-sym-nostar}*`) +@ (or) sethash(op_table, @{txl-sym}_s,@(skip) @ (or) reg_fun(intern(lit("@{txl-sym}"),@(skip) @@ -21,6 +24,7 @@ void eval_init(void) @ (or) reg_var(intern(lit("@{txl-sym}"),@(skip) @ (end) +@ (set txl-sym @(regsub #/_/ #\- txl-sym)) @(until) } @(end) |