diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-05-25 22:22:28 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-05-25 22:22:28 +0200 |
| commit | 0d91c2ddaec46daf41ec17cc91fe802eb8445cde (patch) | |
| tree | dce0361be4c9bb8295c5d707e4a40bd7d5d8b7f3 | |
| parent | df17725c80d60f1514488d40d2598ecb9e8382e9 (diff) | |
| download | emacs-0d91c2ddaec46daf41ec17cc91fe802eb8445cde.tar.gz emacs-0d91c2ddaec46daf41ec17cc91fe802eb8445cde.tar.bz2 emacs-0d91c2ddaec46daf41ec17cc91fe802eb8445cde.zip | |
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.
| -rw-r--r-- | lisp/progmodes/scheme.el | 5 |
1 files changed, 4 insertions, 1 deletions
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) |