summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-09-24 22:16:49 +0300
committerAlex Kost <alezost@gmail.com>2015-09-27 12:23:01 +0300
commit51b62a7322e3257bbee46fc0319174a39170e1ba (patch)
tree4f2053a62bdb0930e59a017ca6b25289c75ccbfe /elisp
parent15af81d8d23d9ab1c2b5f6037db99ab4a5dce76b (diff)
downloadgeiser-guile-51b62a7322e3257bbee46fc0319174a39170e1ba.tar.gz
geiser-guile-51b62a7322e3257bbee46fc0319174a39170e1ba.tar.bz2
Add 'geiser-guile--builtin-keywords'
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-guile.el23
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))