2019-05-17 18:25:56 +01:00
|
|
|
((makefile-mode
|
|
|
|
. ((indent-tabs-mode . t)))
|
2018-07-04 19:11:26 +01:00
|
|
|
(scheme-mode
|
2019-05-17 18:25:56 +01:00
|
|
|
. ((geiser-active-implementations . (guile))
|
|
|
|
(eval . (progn
|
|
|
|
(let ((top (locate-dominating-file default-directory
|
|
|
|
".dir-locals.el")))
|
|
|
|
(add-to-list 'geiser-guile-load-path top))))
|
Add support for Guile 2.0.9.
* gash/compat.scm: New file.
* gash/compat/hash-table.scm: New file.
* Makefile.am: Add them.
* .dir-locals.scm: Add indentation for 'if-guile-version-below'.
* guix.scm (guile-2.0.9): New variable.
* gash/built-ins/echo.scm (escape->control): Use '#\esc'.
* gash/environment.scm: Use '(gash compat hash-table)'.
* gash/built-ins/break.scm,
gash/built-ins/cd.scm,
gash/built-ins/command.scm,
gash/built-ins/continue.scm,
gash/built-ins/dot.scm,
gash/built-ins/exec.scm,
gash/built-ins/exit.scm,
gash/built-ins/pwd.scm,
gash/built-ins/return.scm,
gash/built-ins/set.scm,
gash/built-ins/shift.scm,
gash/built-ins/trap.scm,
gash/built-ins/type.scm,
gash/built-ins/umask.scm,
gash/eval.scm,
tests/unit/automake.scm: Use '(gash compat)'.
squash! Add support for Guile 2.0.9.
2019-05-20 00:33:05 +01:00
|
|
|
(eval . (put 'if-guile-version-below 'scheme-indent-function 1))
|
2019-05-17 18:25:56 +01:00
|
|
|
(eval . (put '<sh-case> 'scheme-indent-function 1))
|
|
|
|
(eval . (put '<sh-defun> 'scheme-indent-function 1))
|
|
|
|
(eval . (put '<sh-exec-let> 'scheme-indent-function 1))
|
|
|
|
(eval . (put '<sh-for> 'scheme-indent-function 1))
|
|
|
|
(eval . (put '<sh-until> 'scheme-indent-function 1))
|
|
|
|
(eval . (put '<sh-while> 'scheme-indent-function 1))
|
|
|
|
(eval . (put '<sh-with-redirects> 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'call-with-backquoted-input-port 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'make-script 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'sh:for 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'sh:subshell 'scheme-indent-function 0))
|
|
|
|
(eval . (put 'sh:substitute-command 'scheme-indent-function 0))
|
|
|
|
(eval . (put 'sh:with-redirects 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'call-with-break 'scheme-indent-function 0))
|
|
|
|
(eval . (put 'call-with-continue 'scheme-indent-function 0))
|
|
|
|
(eval . (put 'with-arguments 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'with-environ 'scheme-indent-function 1))
|
|
|
|
(eval . (put 'with-variables 'scheme-indent-function 1))))
|
|
|
|
(nil
|
|
|
|
. ((indent-tabs-mode . nil))))
|