[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0d91c2d: Fix font and indentation of call-with-port in scheme-mod
From: |
Lars Ingebrigtsen |
Subject: |
master 0d91c2d: Fix font and indentation of call-with-port in scheme-mode |
Date: |
Tue, 25 May 2021 16:22:35 -0400 (EDT) |
branch: master
commit 0d91c2ddaec46daf41ec17cc91fe802eb8445cde
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Fix font and indentation of call-with-port in scheme-mode
* lisp/progmodes/scheme.el (scheme-font-lock-keywords-2): Add
call-with-port (bug#48544).
(call-with-port): Indent correctly.
---
lisp/progmodes/scheme.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index b697284..57351a7 100644
--- a/lisp/progmodes/scheme.el
+++ b/lisp/progmodes/scheme.el
@@ -299,7 +299,9 @@ See `run-hooks'."
(concat
"(" (regexp-opt
'("begin" "call-with-current-continuation" "call/cc"
- "call-with-input-file" "call-with-output-file" "case" "cond"
+ "call-with-input-file" "call-with-output-file"
+ "call-with-port"
+ "case" "cond"
"do" "else" "for-each" "if" "lambda" "λ"
"let" "let*" "let-syntax" "letrec" "letrec-syntax"
;; R6RS library subforms.
@@ -542,6 +544,7 @@ indentation."
(put 'library 'scheme-indent-function 1) ; R6RS
(put 'call-with-input-file 'scheme-indent-function 1)
+(put 'call-with-port 'scheme-indent-function 1)
(put 'with-input-from-file 'scheme-indent-function 1)
(put 'with-input-from-port 'scheme-indent-function 1)
(put 'call-with-output-file 'scheme-indent-function 1)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 0d91c2d: Fix font and indentation of call-with-port in scheme-mode,
Lars Ingebrigtsen <=