X-Git-Url: http://git.hcoop.net/jackhill/guix/guix.git/blobdiff_plain/28aef467ee78439de8361be9ce418f7aed593aa7..e1604d43569a360ed0cfced31047c4102d9f4a3c:/.dir-locals.el

diff --git a/.dir-locals.el b/.dir-locals.el
index c95ca9e5ed..a4fcbfe7ca 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -25,7 +25,7 @@
                ;; strange problem where this code "escapes" to some other buffers,
                ;; at least vc-mode.  See:
                ;;   https://lists.gnu.org/archive/html/guix-devel/2020-11/msg00296.html
-               ;; (TODO: add/replace with upstream emacs bug link when reported)
+               ;; Upstream report: <https://bugs.gnu.org/44698>
                ;; Hence the following "when", which might otherwise be unnecessary;
                ;; it prevents causing an error when root-dir-unexpanded is nil.
                (when root-dir-unexpanded
@@ -75,6 +75,7 @@
    (eval . (put 'origin 'scheme-indent-function 0))
    (eval . (put 'build-system 'scheme-indent-function 0))
    (eval . (put 'bag 'scheme-indent-function 0))
+   (eval . (put 'gexp->derivation 'scheme-indent-function 1))
    (eval . (put 'graft 'scheme-indent-function 0))
    (eval . (put 'operating-system 'scheme-indent-function 0))
    (eval . (put 'file-system 'scheme-indent-function 0))
@@ -121,6 +122,7 @@
    (eval . (put 'let-system 'scheme-indent-function 1))
 
    (eval . (put 'with-database 'scheme-indent-function 2))
+   (eval . (put 'call-with-database 'scheme-indent-function 1))
    (eval . (put 'call-with-transaction 'scheme-indent-function 1))
    (eval . (put 'with-statement 'scheme-indent-function 3))
    (eval . (put 'call-with-retrying-transaction 'scheme-indent-function 1))