aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--.dir-locals.el3
1 files changed, 3 insertions, 0 deletions
diff --git a/.dir-locals.el b/.dir-locals.el
index a331bde0f1..b8b0fec4ca 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -72,6 +72,9 @@
(eval . (put 'substitute* 'scheme-indent-function 1))
(eval . (put 'match-record 'scheme-indent-function 2))
+ ;; TODO: Contribute these to Emacs' scheme-mode.
+ (eval . (put 'let-keywords 'scheme-indent-function 3))
+
;; 'modify-inputs' and its keywords.
(eval . (put 'modify-inputs 'scheme-indent-function 1))
(eval . (put 'replace 'scheme-indent-function 1))
;. */ #include <config.h> #include <gcrypt-hash.hh> #include <assert.h> extern "C" { void guix_hash_init (struct guix_hash_context *ctx, int algo) { gcry_error_t err; err = gcry_md_open (&ctx->md_handle, algo, 0); assert (err == GPG_ERR_NO_ERROR); } void guix_hash_update (struct guix_hash_context *ctx, const void *buffer, size_t len) { gcry_md_write (ctx->md_handle, buffer, len); } void guix_hash_final (void *resbuf, struct guix_hash_context *ctx, int algo) { memcpy (resbuf, gcry_md_read (ctx->md_handle, algo), gcry_md_get_algo_dlen (algo)); gcry_md_close (ctx->md_handle); ctx->md_handle = NULL; } }