397/470: gnu: emacs-scratch-el: Skip tests.

[guix-commits]

guix_mirror_bot pushed a commit to branch emacs-team
in repository guix.

commit 0023c18a64e0b7400445750611eabcfee6f83075
Author: Nicolas Graves <ngraves@ngraves.fr>
AuthorDate: Sun Apr 27 16:52:52 2025 +0200

    gnu: emacs-scratch-el: Skip tests.
    
    * gnu/packages/emacs-xyz.scm (emacs-scratch-el):
      [arguments]<tests?>: Skip tests.
      <phases>: Add phase 'install-doc.
    
    Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
---
 gnu/packages/emacs-xyz.scm | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index c371d1003b..7a321ae005 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -25392,16 +25392,15 @@ org header line at the top of the window--no matter 
how far down you scrolled.")
     (native-inputs
      (list texinfo))
     (arguments
-     '(#:phases
-       (modify-phases %standard-phases
-         (add-after 'install 'install-doc
-           (lambda* (#:key outputs #:allow-other-keys)
-             (unless (invoke "makeinfo" "scratch.texi")
-               (error "makeinfo failed"))
-             (install-file "scratch.info"
-                           (string-append (assoc-ref outputs "out")
-                                          "/share/info"))
-             #t)))))
+     (list #:tests? #f ; No tests.
+           #:phases
+           #~(modify-phases %standard-phases
+               (add-after 'install 'install-doc
+                 (lambda _
+                   (unless (invoke "makeinfo" "scratch.texi")
+                     (error "makeinfo failed"))
+                   (install-file "scratch.info"
+                                 (string-append #$output "/share/info")))))))
     (home-page "https://codeberg.org/emacs-weirdware/scratch";)
     (synopsis "Create scratch buffers with the same mode as current buffer")
     (description "Scratch is an extension to Emacs that enables one to create