You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

33 lines
1.5 KiB

  1. ;; Per-directory local variables for GNU Emacs 23 and later.
  2. ((nil . ((fill-column . 78)
  3. (tab-width . 8)))
  4. (c-mode . ((c-file-style . "gnu")))
  5. (scheme-mode
  6. .
  7. ((indent-tabs-mode . nil)
  8. (eval . (put 'test-assert 'scheme-indent-function 1))
  9. (eval . (put 'test-equal 'scheme-indent-function 1))
  10. (eval . (put 'call-with-input-string 'scheme-indent-function 1))
  11. (eval . (put 'guard 'scheme-indent-function 1))
  12. (eval . (put 'lambda* 'scheme-indent-function 1))
  13. (eval . (put 'substitute* 'scheme-indent-function 1))
  14. (eval . (put 'with-directory-excursion 'scheme-indent-function 1))
  15. (eval . (put 'package 'scheme-indent-function 0))
  16. (eval . (put 'origin 'scheme-indent-function 0))
  17. (eval . (put 'manifest-entry 'scheme-indent-function 0))
  18. (eval . (put 'manifest-pattern 'scheme-indent-function 0))
  19. (eval . (put 'substitute-keyword-arguments 'scheme-indent-function 1))
  20. (eval . (put 'with-error-handling 'scheme-indent-function 0))
  21. (eval . (put 'with-mutex 'scheme-indent-function 1))
  22. (eval . (put 'with-atomic-file-output 'scheme-indent-function 1))
  23. (eval . (put 'syntax-parameterize 'scheme-indent-function 1))
  24. (eval . (put 'with-monad 'scheme-indent-function 1))
  25. (eval . (put 'mlet* 'scheme-indent-function 2))
  26. (eval . (put 'mlet 'scheme-indent-function 2))
  27. (eval . (put 'run-with-store 'scheme-indent-function 1))))
  28. (emacs-lisp-mode . ((indent-tabs-mode . nil)))
  29. (texinfo-mode . ((indent-tabs-mode . nil)
  30. (fill-column . 72))))