.dir-locals: Add test macro indentation.
* .dir-locals.el (scheme-mode): Add indentation for pass-if, pass-if-not, pass-if-eq, pass-if-equal, expect-fail, pass-if-timeout.
This commit is contained in:
parent
65073a01e6
commit
f0c7df0dab
|
@ -35,6 +35,14 @@
|
||||||
.
|
.
|
||||||
((geiser-active-implementations . (guile))
|
((geiser-active-implementations . (guile))
|
||||||
|
|
||||||
|
;; Guile syntax
|
||||||
|
(eval . (put 'pass-if 'scheme-indent-function 1))
|
||||||
|
(eval . (put 'pass-if-not 'scheme-indent-function 1))
|
||||||
|
(eval . (put 'pass-if-eq 'scheme-indent-function 2))
|
||||||
|
(eval . (put 'pass-if-equal 'scheme-indent-function 2))
|
||||||
|
(eval . (put 'expect-fail 'scheme-indent-function 2))
|
||||||
|
(eval . (put 'pass-if-timeout 'scheme-indent-function 2))
|
||||||
|
|
||||||
;; Guix package
|
;; Guix package
|
||||||
(eval . (put 'package 'scheme-indent-function 0))
|
(eval . (put 'package 'scheme-indent-function 0))
|
||||||
(eval . (put 'origin 'scheme-indent-function 0))
|
(eval . (put 'origin 'scheme-indent-function 0))
|
||||||
|
@ -50,6 +58,7 @@
|
||||||
|
|
||||||
(eval
|
(eval
|
||||||
.
|
.
|
||||||
|
|
||||||
(progn
|
(progn
|
||||||
(defun prefix-dir-locals-dir (elt)
|
(defun prefix-dir-locals-dir (elt)
|
||||||
(concat (locate-dominating-file buffer-file-name ".dir-locals.el") elt))
|
(concat (locate-dominating-file buffer-file-name ".dir-locals.el") elt))
|
||||||
|
|
Loading…
Reference in New Issue