diff options
author | Ludovic Courtès <ludo@gnu.org> | 2023-02-11 23:46:37 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2023-02-24 16:49:00 +0100 |
commit | 821e0f9cd55a112783e579eb6f8d96c37d2f85fe (patch) | |
tree | 84bba6646a97e1c32a3d4863a0b6877074ef9592 | |
parent | 52465f0ce7eb0c2e001f6c7439ecd867ea0f18f4 (diff) | |
download | guile-821e0f9cd55a112783e579eb6f8d96c37d2f85fe.tar.gz |
Add 'record-case' to '.dir-locals.el'.
* module/language/tree-il/fix-letrec.scm (fix-letrec): Remove "Local
Variables" bit.
* .dir-locals.el (scheme-mode): Add 'record-case'.
-rw-r--r-- | .dir-locals.el | 1 | ||||
-rw-r--r-- | module/language/tree-il/fix-letrec.scm | 4 |
2 files changed, 1 insertions, 4 deletions
diff --git a/.dir-locals.el b/.dir-locals.el index 90257e7bf..908670479 100644 --- a/.dir-locals.el +++ b/.dir-locals.el @@ -47,6 +47,7 @@ (eval . (put '$letrec 'scheme-indent-function 3)) (eval . (put '$kclause 'scheme-indent-function 1)) (eval . (put '$fun 'scheme-indent-function 1)) + (eval . (put 'record-case 'scheme-indent-function 1)) (eval . (put 'syntax-parameterize 'scheme-indent-function 1)))) (emacs-lisp-mode . ((indent-tabs-mode . nil))) (texinfo-mode . ((indent-tabs-mode . nil) diff --git a/module/language/tree-il/fix-letrec.scm b/module/language/tree-il/fix-letrec.scm index 2cd550ae9..12c1d500a 100644 --- a/module/language/tree-il/fix-letrec.scm +++ b/module/language/tree-il/fix-letrec.scm @@ -318,7 +318,3 @@ (else x))) x))) - -;;; Local Variables: -;;; eval: (put 'record-case 'scheme-indent-function 1) -;;; End: |