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

commit 5eab1c6debba4bd5e32dbf17548605bd94a8d962
Author: Morgan Smith <morgan.j.sm...@outlook.com>
AuthorDate: Sun Mar 2 17:15:13 2025 -0500

    gnu: emacs-epkg: Use '#:lisp-directory'.
    
    * gnu/packages/emacs-xyz.scm (emacs-epkg): Use '#:lisp-directory'.
    
    Change-Id: If7ccb4a86e5104993ba4dcaae8c03cb8ee57713d
    Signed-off-by: Liliana Marie Prikler <liliana.prik...@gmail.com>
---
 gnu/packages/emacs-xyz.scm | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 745e87a64f..33d9835171 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -25494,26 +25494,17 @@ match your personal coding style.")
         (base32 "1a6zw1z318ip4vnqfgv99b2knbm3qq6ji7spqq9g5w3lls40aqvx"))))
     (build-system emacs-build-system)
     (arguments
-     `(#:phases
+     `(#:lisp-directory "lisp"
+       #:phases
        (modify-phases %standard-phases
          (add-before 'install 'make-info
            ;; Documentation is located in "docs/".
            (lambda* (#:key outputs #:allow-other-keys)
-             (with-directory-excursion "docs"
+             (with-directory-excursion "../docs"
                (invoke "makeinfo" "-o" "epkg.info" "epkg.texi")
                (let ((info (string-append (assoc-ref outputs "out")
                                           "/share/info")))
-                 (install-file "epkg.info" info)))))
-         (add-after 'make-info 'move-to-lisp-directory
-           ;; Source code is located in "lisp/".
-           (lambda _
-             (chdir "lisp")))
-         (add-after 'expand-load-path 'add-el-dir-to-emacs-load-path
-           (lambda _
-             (setenv "EMACSLOADPATH"
-                     (string-append (getcwd)
-                                    "/lisp:"
-                                    (getenv "EMACSLOADPATH"))))))))
+                 (install-file "epkg.info" info))))))))
     (native-inputs
      (list texinfo))
     (propagated-inputs

Reply via email to