branch: elpa/geiser-stklos
commit d3caaf3e8e9ca7789554f6579c08970af69a6c38
Author: Jeronimo Pellegrini <j...@aleph0.info>
Commit: Jeronimo Pellegrini <j...@aleph0.info>
Add symbols to the highlited list
---
geiser-stklos.el | 19 ++++++++++++++++++-
1 file changed, 18 insertions(+), 1 deletion(-)
diff --git a/geiser-stklos.el b/geiser-stklos.el
index 2e8914fdfd..5f8566f2d8 100644
--- a/geiser-stklos.el
+++ b/geiser-stklos.el
@@ -378,9 +378,26 @@ Argument BINARY is a string containing the binary name."
"define-struct"
"dotimes"
"fluid-let"
+ "include-file"
"macro-expand"
+ "match-case"
"repeat"
+ "require-extension"
+ "require-feature"
+ "require-for-syntax"
+ "require-library"
"tagbody"
+ "until"
+ "when-compile"
+ "when-load-and-compile"
+ "with-error-to-file"
+ "with-error-to-port"
+ "with-input-from-port"
+ "with-input-from-string"
+ "with-mutex"
+ "with-output-to-port"
+ "with-output-to-string"
+ "while"
"with-handler" )
"These are symbols that we want to be highlighted in STklos code.")
@@ -416,7 +433,7 @@ standard Scheme ones."
(unsupported '(callers callees)) ; doesn't seem to
make any difference?
)
-;; STklos files are .stk, and we may wat to open .scm files with STklos also:
+;; STklos files are .stk, and we may want to open .scm files with STklos also:
;;
(geiser-implementation-extension 'stklos "scm")
(geiser-implementation-extension 'stklos "stk")
