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 | e7ab38aeb5d256b11ee9186ec90a072eea70314a (patch) | |
| tree | 8ee5e56724d96a01e0372d4c9e6a3e7e6caed170 | |
| parent | d5effa68f320f59bf5d82f08d176f8ae7ad9299b (diff) | |
| download | txr-e7ab38aeb5d256b11ee9186ec90a072eea70314a.tar.gz txr-e7ab38aeb5d256b11ee9186ec90a072eea70314a.tar.bz2 txr-e7ab38aeb5d256b11ee9186ec90a072eea70314a.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 |