[nongnu] elpa/geiser-guile 51b62a7 248/284: Add 'geiser-guile--builtin-keywords'

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 51b62a7322e3257bbee46fc0319174a39170e1ba
Author: Alex Kost <alezost@gmail.com>
Commit: Alex Kost <alezost@gmail.com>

    Add 'geiser-guile--builtin-keywords'
---
 elisp/geiser-guile.el | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

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))