mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

Add 'record-case' to '.dir-locals.el'.

Browse source 
* module/language/tree-il/fix-letrec.scm (fix-letrec): Remove "Local
Variables" bit.
* .dir-locals.el (scheme-mode): Add 'record-case'.
This commit is contained in:
Ludovic Courtès 2023-02-11 23:46:37 +01:00
parent 52465f0ce7
commit 821e0f9cd5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

1
.dir-locals.el
View file

@ -47,6 +47,7 @@
(eval . (put '$letrec 'scheme-indent-function 3)) (eval . (put '$letrec 'scheme-indent-function 3))
(eval . (put '$kclause 'scheme-indent-function 1)) (eval . (put '$kclause 'scheme-indent-function 1))
(eval . (put '$fun '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)))) (eval . (put 'syntax-parameterize 'scheme-indent-function 1))))
(emacs-lisp-mode . ((indent-tabs-mode . nil))) (emacs-lisp-mode . ((indent-tabs-mode . nil)))
(texinfo-mode . ((indent-tabs-mode . nil) (texinfo-mode . ((indent-tabs-mode . nil)

4
module/language/tree-il/fix-letrec.scm
View file

@ -318,7 +318,3 @@
(else x))) (else x)))
x))) x)))
;;; Local Variables:
;;; eval: (put 'record-case 'scheme-indent-function 1)
;;; End: