diff options
| author | Alex Kost <alezost@gmail.com> | 2015-10-03 16:45:43 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-10-03 16:45:43 +0300 |
| commit | 9fb965fe0cec51443541044a9cd65cc8f6f6c44a (patch) | |
| tree | a3c38d2192336503b6643f8250d9da09b2d2d591 | |
| parent | 6cef62b80fb292eaa90548689eaa3ce85e110ac4 (diff) | |
| download | geiser-guile-9fb965fe0cec51443541044a9cd65cc8f6f6c44a.tar.gz geiser-guile-9fb965fe0cec51443541044a9cd65cc8f6f6c44a.tar.bz2 | |
Add more highlighting/indentation for Guile
| -rw-r--r-- | elisp/geiser-guile.el | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index 699ed9a..e70ca30 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -247,14 +247,19 @@ This function uses `geiser-guile-init-file' if it exists." (defconst geiser-guile--builtin-keywords '("call-with-input-file" - "call-with-output-file" "call-with-input-string" + "call-with-output-file" "call-with-output-string" + "call-with-prompt" + "call-with-trace" "define-accessor" "define-class" "define-enumeration" "define-inlinable" + "define-syntax-parameter" + "eval-when" "lambda*" + "syntax-parameterize" "use-modules" "with-error-to-file" "with-error-to-port" @@ -283,9 +288,13 @@ This function uses `geiser-guile-init-file' if it exists." (c-lambda 2) (call-with-input-string 1) (call-with-output-string 0) + (call-with-prompt 1) + (call-with-trace 0) + (eval-when 1) (lambda* 1) (pmatch defun) (sigaction 1) + (syntax-parameterize 1) (with-error-to-file 1) (with-error-to-port 1) (with-error-to-string 0) @@ -295,8 +304,8 @@ This function uses `geiser-guile-init-file' if it exists." (with-input-from-string 1) (with-method 1) (with-mutex 1) - (with-output-to-string 0)) - + (with-output-to-string 0) + (with-throw-handler 1)) ;;; Compilation shell regexps |