From 821e0f9cd55a112783e579eb6f8d96c37d2f85fe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 11 Feb 2023 23:46:37 +0100 Subject: 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'. --- .dir-locals.el | 1 + module/language/tree-il/fix-letrec.scm | 4 ---- 2 files changed, 1 insertion(+), 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: -- cgit v1.2.1