diff options
| author | Alex Kost <alezost@gmail.com> | 2015-09-24 22:16:49 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-09-27 12:23:01 +0300 |
| commit | 51b62a7322e3257bbee46fc0319174a39170e1ba (patch) | |
| tree | 4f2053a62bdb0930e59a017ca6b25289c75ccbfe | |
| parent | 15af81d8d23d9ab1c2b5f6037db99ab4a5dce76b (diff) | |
| download | geiser-guile-51b62a7322e3257bbee46fc0319174a39170e1ba.tar.gz geiser-guile-51b62a7322e3257bbee46fc0319174a39170e1ba.tar.bz2 | |
Add 'geiser-guile--builtin-keywords'
| -rw-r--r-- | elisp/geiser-guile.el | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el index 941fe81..d75089f 100644 --- a/elisp/geiser-guile.el +++ b/elisp/geiser-guile.el @@ -245,9 +245,32 @@ This function uses `geiser-guile-init-file' if it exists." ;;; Keywords and syntax +(defconst geiser-guile--builtin-keywords + '("call-with-input-file" + "call-with-output-file" + "call-with-input-string" + "call-with-output-string" + "define-accessor" + "define-class" + "define-enumeration" + "define-inlinable" + "lambda*" + "use-modules" + "with-error-to-file" + "with-error-to-port" + "with-error-to-string" + "with-fluid*" + "with-fluids" + "with-fluids*" + "with-input-from-port" + "with-input-from-string" + "with-output-to-port" + "with-output-to-string")) + (defun geiser-guile--keywords () (append (geiser-syntax--simple-keywords geiser-guile-extra-keywords) + (geiser-syntax--simple-keywords geiser-guile--builtin-keywords) `((,(rx "(" (group "define-once") eow (* space) (? (group (+ word)))) (1 font-lock-keyword-face) (2 font-lock-variable-name-face nil t)) |