guix_mirror_bot pushed a commit to branch emacs-team
in repository guix.
commit 46307461d2f5db23b5eb211dbd14e90519c65fe7
Author: Nicolas Graves <ngra...@ngraves.fr>
AuthorDate: Mon Jul 14 15:00:13 2025 +0200
gnu: emacs: Build reproducibly.
* gnu/packages/emacs.scm (emacs-minimal)[arguments]
<#:make-flags>: Wrap RUN_TEMACS with faketime.
<#:parallel-build?>: Disable.
<#:phases>: Add 'avoid-sysinfo-call-at-build-time.
[native-inputs]: Add libfaketime.
Signed-off-by: Liliana Marie Prikler <liliana.prik...@gmail.com>
---
gnu/packages/emacs.scm | 23 +++++++++++++++++++++--
1 file changed, 21 insertions(+), 2 deletions(-)
diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index eeb274cf88..b24ff226fc 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -25,6 +25,7 @@
;;; Copyright © 2022 Zhu Zihao <all_but_l...@163.com>
;;; Copyright © 2023 Declan Tsien <declants...@riseup.net>
;;; Copyright © 2023, 2024 Zheng Junjie <873216...@qq.com>
+;;; Copyright © 2025 Nicolas Graves <ngra...@ngraves.fr>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -55,6 +56,7 @@
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
+ #:use-module (gnu packages check)
#:use-module (gnu packages compression)
#:use-module (gnu packages fontutils)
#:use-module (gnu packages freedesktop)
@@ -201,7 +203,14 @@
" -Wno-error=incompatible-pointer-types")
"--with-gnutls=no"
"--disable-build-details")
- #:make-flags #~(list (string-append "SELECTOR=" #$%selector))
+ #:make-flags
+ #~(list (string-append "SELECTOR=" #$%selector)
+ (let ((release-date "2025-02-23 17:41:38"))
+ (string-append "RUN_TEMACS= "
+ #$(this-package-native-input "libfaketime")
+ "/bin/faketime -m -f '" release-date "'"
+ " ./temacs")))
+ #:parallel-build? #f
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'enable-elogind
@@ -210,6 +219,16 @@
(("libsystemd") "libelogind"))
(when (file-exists? "configure")
(delete-file "configure"))))
+ (add-after 'unpack 'avoid-sysinfo-call-at-build-time
+ (lambda _
+ ;; This is a useful trick for reproducibility: when we configured
+ ;; with --disable-build-details, (system-name) is nil at build
+ ;; time on the lisp side.
+ ;; Find those places with strace -k -e sysinfo.
+ (substitute* "lisp/jit-lock.el"
+ (("\\(condition-case nil \\(load-average\\) \\(error\\)\\)"
+ all)
+ (format #f "(and (system-name) ~a)" all)))))
(add-after 'unpack 'patch-program-file-names
(lambda* (#:key inputs #:allow-other-keys)
;; Substitute "sh" command.
@@ -363,7 +382,7 @@
(car (find-files "bin" "^emacs-([0-9]+\\.)+[0-9]+$"))
"bin/emacs")))))))
(inputs (list bash-minimal coreutils findutils gawk gzip ncurses sed))
- (native-inputs (list autoconf pkg-config texinfo))
+ (native-inputs (list autoconf libfaketime pkg-config texinfo))
(home-page "https://www.gnu.org/software/emacs/";)
(synopsis "The extensible text editor (minimal build for
byte-compilation)")
(description
