summary refs log tree commit diff
path: root/.dir-locals.el
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-05-14 23:53:38 +0200
committerLudovic Courtès <ludo@gnu.org>2013-05-14 23:53:38 +0200
commit0332386251ba001c0b0ec65fbfa1c06b826c6e47 (patch)
tree376d6950c38ae2c0c212d1b47459e337b0b7bdc8 /.dir-locals.el
parent90a1e4b3033e4a17a4b05f51f046a0eaa697c95b (diff)
downloadguix-0332386251ba001c0b0ec65fbfa1c06b826c6e47.tar.gz
substitute-binary: Work around thread-unsafe `regexp-exec'.
* guix/scripts/substitute-binary.scm (%regexp-exec-mutex): New variable.
  (string->uri): New procedure.
  (fields->alist): Wrap `regexp-exec' call in `with-mutex'.
Diffstat (limited to '.dir-locals.el')
-rw-r--r--.dir-locals.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/.dir-locals.el b/.dir-locals.el
index c7dc86fffe..fc41d430b4 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -15,7 +15,8 @@
    (eval . (put 'with-directory-excursion 'scheme-indent-function 1))
    (eval . (put 'package 'scheme-indent-function 1))
    (eval . (put 'substitute-keyword-arguments 'scheme-indent-function 1))
-   (eval . (put 'with-error-handling 'scheme-indent-function 0))))
+   (eval . (put 'with-error-handling 'scheme-indent-function 0))
+   (eval . (put 'with-mutex 'scheme-indent-function 1))))
  (emacs-lisp-mode . ((indent-tabs-mode . nil)))
  (texinfo-mode    . ((indent-tabs-mode . nil)
                      (fill-column . 72))))