02/02: gnu: emacs-ido-completing-read+: Disable native compilation.

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit cd0d27f30dc2274fbf8477f44275d9184521f044
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Fri Oct 14 20:43:14 2022 +0200

    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 02ddd52c9b..1613808419 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";)