01/03: guix: emacs-utils: Add emacs-batch-disable-compilation.

[guix-commits]

brettgilio pushed a commit to branch master
in repository guix.

commit 9ce3f7f6dc49aef3153a8d58c96528808e82fb3f
Author: Leo Prikler <address@hidden>
Date:   Sun Dec 15 00:45:08 2019 +0100

    guix: emacs-utils: Add emacs-batch-disable-compilation.
    
    * guix/build/emacs-utils.scm (emacs-batch-disable-compilation):
    New procedure.
    
    Signed-off-by: Brett Gilio <address@hidden>
---
 guix/build/emacs-utils.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/guix/build/emacs-utils.scm b/guix/build/emacs-utils.scm
index fdacd30..885fd0a 100644
--- a/guix/build/emacs-utils.scm
+++ b/guix/build/emacs-utils.scm
@@ -2,6 +2,7 @@
 ;;; Copyright © 2014, 2018 Mark H Weaver <address@hidden>
 ;;; Copyright © 2014 Alex Kost <address@hidden>
 ;;; Copyright © 2018 Maxim Cournoyer <address@hidden>
+;;; Copyright © 2019 Leo Prikler <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -23,6 +24,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 +52,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"))