mirror of
git://git.savannah.gnu.org/guix/guix-cuirass.git
synced 2023-12-14 06:03:04 +01:00
6d1757e249
* src/cuirass/base.scm (ensure-non-blocking-store-connection): New procedure. (with-store/non-blocking): New macro. * src/cuirass/scripts/remote-server.scm (ensure-non-blocking-store-connection): Remove. (add-to-store): Use 'with-store/non-blocking' instead of 'with-store'. * .dir-locals.el (scheme-mode): Add 'with-store/non-blocking'.
22 lines
828 B
EmacsLisp
22 lines
828 B
EmacsLisp
;;; Directory Local Variables
|
|
;;; For more information see (info "(emacs) Directory Variables")
|
|
|
|
((nil
|
|
(fill-column . 78)
|
|
(tab-width . 8)
|
|
(bug-reference-url-format . "http://bugs.gnu.org/%s")
|
|
(bug-reference-bug-regexp
|
|
. "<https?://\\(debbugs\\|bugs\\)\\.gnu\\.org/\\([0-9]+\\)>"))
|
|
(scheme-mode
|
|
(indent-tabs-mode)
|
|
(eval put 'with-store/non-blocking 'scheme-indent-function 1)
|
|
(eval put 'call-with-time 'scheme-indent-function 1)
|
|
(eval put 'test-error 'scheme-indent-function 1)
|
|
(eval put 'make-parameter 'scheme-indent-function 1)
|
|
(eval put 'with-database 'scheme-indent-function 0)
|
|
(eval put 'with-transaction 'scheme-indent-function 0)
|
|
(eval put 'with-resource-from-pool 'scheme-indent-function 2))
|
|
(texinfo-mode
|
|
(indent-tabs-mode)
|
|
(fill-column . 72)
|
|
(ispell-local-dictionary . "american")))
|