From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 25 May 2021 20:22:28 +0000 (+0200)
Subject: Fix font and indentation of call-with-port in scheme-mode
X-Git-Tag: emacs-28.0.90~2331
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0d91c2ddaec46daf41ec17cc91fe802eb8445cde;p=emacs.git

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

diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el
index b6972846cde..57351a7308d 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)