summaryrefslogtreecommitdiff
path: root/elisp/geiser-guile.el
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
commit07186d3049ccdf5bb2e50fd4287a52b6e1545626 (patch)
tree17e46cadc564f9df37398fcdf39946b5c6585e49 /elisp/geiser-guile.el
parentd1eb6e006cfaa1223482935110b6ac8f80e87e09 (diff)
downloadgeiser-guile-07186d3049ccdf5bb2e50fd4287a52b6e1545626.tar.gz
geiser-guile-07186d3049ccdf5bb2e50fd4287a52b6e1545626.tar.bz2
Add 'geiser-guile--builtin-keywords'
Diffstat (limited to 'elisp/geiser-guile.el')
-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))