04/07: gnu: qemacs: Use 'native-inputs' instead of '%build-inputs'.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit 156b8f9cd2bbbb9580dd01a30a9891fddf79362c
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue May 25 15:49:05 2021 +0200

    gnu: qemacs: Use 'native-inputs' instead of '%build-inputs'.
    
    In build phases, the former (or 'inputs', as appropriate) is preferred.
    
    * gnu/packages/text-editors.scm
      (qemacs)[arguments]<#:phases>{install-extra-documentation}: Use
      'native-inputs' argument instead of '%build-inputs'.
    
    Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
---
 gnu/packages/text-editors.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/gnu/packages/text-editors.scm b/gnu/packages/text-editors.scm
index eb557cb..193b6ba 100644
--- a/gnu/packages/text-editors.scm
+++ b/gnu/packages/text-editors.scm
@@ -524,13 +524,14 @@ OpenBSD team.")
                #t)))
          (add-after 'install 'install-extra-documentation
            ;; Install sample configuration file, Info, and HTML manual.
-           (lambda* (#:key outputs #:allow-other-keys)
+           (lambda* (#:key native-inputs inputs outputs #:allow-other-keys)
              (let* ((share (string-append (assoc-ref outputs "out") "/share"))
                     (doc (string-append share "/doc/" ,name "-" ,version))
                     (html (string-append share "/html"))
                     (info (string-append share "/info"))
-                    (makeinfo (string-append (assoc-ref %build-inputs 
"texinfo")
-                                             "/bin/makeinfo")))
+                    (makeinfo (string-append
+                               (assoc-ref (or native-inputs inputs) "texinfo")
+                               "/bin/makeinfo")))
                ;; First fix Texinfo documentation, create appropriate
                ;; directories, then generate Info and HTML files there.
                (substitute* "qe-doc.texi"