diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-06-30 22:15:08 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-06-30 22:15:08 -0700 |
| commit | e2b260844283380c20bba125450e3d6ef90f9057 (patch) | |
| tree | 8ee5e56724d96a01e0372d4c9e6a3e7e6caed170 | |
| parent | e77cdf42e1960030b9b28fc276580dcb5d79da6a (diff) | |
| download | txr-e2b260844283380c20bba125450e3d6ef90f9057.tar.gz txr-e2b260844283380c20bba125450e3d6ef90f9057.tar.bz2 txr-e2b260844283380c20bba125450e3d6ef90f9057.zip | |
genvim: include ffi type symbols.
* genvim.txr: do syntax coloring for symbols that are
defined as FFI types or are FFI type operators.
Also, include type operators in the Vim lispwords list.
| -rw-r--r-- | genvim.txr | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -14,7 +14,8 @@ static void dir_tables_init(void) (append-each ((sym (package-symbols pkg))) (when (or (boundp sym) (fboundp sym) (mboundp sym) (special-operator-p sym) - (constantp sym)) + (constantp sym) (ffi-type-operator-p sym) + (ffi-type-p sym)) (list sym))))) @(bind tl-sym @(append-each ((sym tl-orig-sym)) @@ -46,7 +47,8 @@ static void dir_tables_init(void) @(bind lispwords @(append-each ((sym tl-orig-sym) (text tl-sym)) (if (or (special-operator-p sym) - (mboundp sym)) + (mboundp sym) + (ffi-type-operator-p sym)) (unless (memq sym '(and dwim inc oand opip or pset qquote quote qref rotate set shift swap sys:l1-setq |