andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Clean up '.dir-locals.el'. 

* .dir-locals.el: Change indentation, and make sure that tabs are used
when editing Makefiles.
This commit is contained in:
Timothy Sample 2019-05-17 13:25:56 -04:00
parent 7c1c3ad5c8
commit 28093b843e
1 changed files with 27 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
.dir-locals.el
View File

@ -1,31 +1,28 @@
((nil
.
((indent-tabs-mode . nil)))
(makefile-mode
(indent-tabs-mode . t))
((makefile-mode
. ((indent-tabs-mode . t)))
(scheme-mode
.
((geiser-active-implementations . (guile))
(eval
.
(progn
(let ((top (locate-dominating-file default-directory ".dir-locals.el")))
(add-to-list 'geiser-guile-load-path top))))
(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)))))
. ((geiser-active-implementations . (guile))
(eval . (progn
(let ((top (locate-dominating-file default-directory
".dir-locals.el")))
(add-to-list 'geiser-guile-load-path top))))
(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))))