From cd0d27f30dc2274fbf8477f44275d9184521f044 Mon Sep 17 00:00:00 2001
From: Liliana Marie Prikler <liliana.prikler@gmail.com>
Date: Fri, 14 Oct 2022 20:43:14 +0200
Subject: [PATCH] gnu: emacs-ido-completing-read+: Disable native compilation.

This fixes an issue, wherein inadvertent native compilation leads to
system crashes.  See <https://bugs.gnu.org/57878> for a discussion.

* gnu/packages/emacs-xyz.scm (emacs-ido-completing-read+)[arguments]:
Add a phase to disable native compilation.
---
 gnu/packages/emacs-xyz.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 02ddd52c9b248e7e40ac94a8c99ad78b221c75fe..1613808419cd40662a97ac53583031eaab916591 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -12356,6 +12356,18 @@ a file, or a complete directory.")
                (base32
                 "1wn94nkfv6qyyj6clvms7m7ncqf09bgszv67may530y75kylivav"))))
     (build-system emacs-build-system)
+    (arguments
+     (list #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'unpack 'disable-native-comp
+                 (lambda _
+                   ;; Native compilation of this package may crash your system,
+                   ;; see <https://bugs.gnu.org/57878>.
+                   (for-each
+                    (lambda (file)
+                      (make-file-writable file)
+                      (emacs-batch-disable-compilation file #:native? #t))
+                    (find-files "." "\\.el$")))))))
     (propagated-inputs
      (list emacs-s))
     (home-page "https://github.com/DarwinAwardWinner/ido-ubiquitous")