From 365f5c02876b51cf566224f60cd6d4c6b7023d66 Mon Sep 17 00:00:00 2001
From: Leo Prikler <address@hidden>
Date: Sun, 15 Dec 2019 00:45:08 +0100
Subject: [PATCH 1/3] guix: emacs-utils: Add emacs-batch-disable-compilation.

* guix/build/emacs-utils.scm (emacs-batch-disable-compilation):
New procedure.
---
 guix/build/emacs-utils.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/guix/build/emacs-utils.scm b/guix/build/emacs-utils.scm
index fdacd30dd6..2aa63c3363 100644
--- a/guix/build/emacs-utils.scm
+++ b/guix/build/emacs-utils.scm
@@ -23,6 +23,7 @@
   #:export (%emacs
             emacs-batch-eval
             emacs-batch-edit-file
+            emacs-batch-disable-compilation
             emacs-generate-autoloads
             emacs-byte-compile-directory
             emacs-substitute-sexps
@@ -50,6 +51,12 @@
           (string-append "--visit=" file)
           (format #f "--eval=~S" expr)))
 
+(define (emacs-batch-disable-compilation file)
+  (emacs-batch-edit-file file
+    '(progn
+      (add-file-local-variable 'no-byte-compile t)
+      (basic-save-buffer))))
+
 (define (emacs-generate-autoloads name directory)
   "Generate autoloads for Emacs package NAME placed in DIRECTORY."
   (let* ((file (string-append directory "/" name "-autoloads.el"))
-- 
2.24.0