1
0
forked from tribes/guix

Compare commits

...

3 Commits

Author SHA1 Message Date
Liliana Marie Prikler 804c8104a3 gnu: emacs: Add lexical binding cookies.
* gnu/packages/emacs.scm (emacs-minimal)[#:phases]<install-c-source>
<install-site-start>: Add “;; -*- lexical-binding: t; -*-” at the top of the
generated files.
* gnu/packages/aux-files/emacs/comp-integrity.el: Likewise.
2026-05-12 09:58:30 +02:00
bdunahu 9492cfa45b gnu: emacs: Fix ‘alpha-background’ frame parameter.
* gnu/packages/emacs.scm (emacs)[inputs]: Add libxrender and libxt.

Change-Id: If0726a04956683e32747524b11656f5c267be8a4
Co-authored-by: Sviatoslav Bulbakha <mail@ssbb.me>
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
Fixes: guix/guix#6490 (alpha-background frame parameter does nothing)
Fixes: https://issues.guix.gnu.org/71627 (likewise)
2026-05-12 09:58:30 +02:00
Liliana Marie Prikler ea5bccd423 build: emacs-build-system: Respect “Package-Version”.
Unlike the builtin ‘package-buffer-info’, the ‘write-pkg-file’ procedure
previously ignored the “Package-Version” header, leading to wrongly reported
version numbers when an actual version would have been available.

* guix/build/emacs-build-system.scm (ensure-package-description): Check for
“package-version” header before invoking ‘lm-version’.

Fixes: guix/guix#5462 (‘emacs-build-system’ generates wrong package versions)
2026-05-12 09:58:30 +02:00
3 changed files with 6 additions and 1 deletions
@@ -1,3 +1,4 @@
;; -*- lexical-binding: t; -*-
(require 'ert)
(eval-when-compile
+4
View File
@@ -387,6 +387,7 @@
(lambda ()
(display
(string-append
";; -*- lexical-binding: t; -*-\n"
"(setq find-function-C-source-directory \"" dest "\")\n\n"
"(provide 'guix-emacs-c-source)")))))))
(add-after 'install 'install-site-start
@@ -413,6 +414,7 @@
(lambda ()
(display
(string-append
";; -*- lexical-binding: t; -*-\n"
"(when (require 'guix-emacs nil t)\n"
" (guix-emacs-autoload-packages 'no-reload)\n"
" (advice-add 'package-load-all-descriptors"
@@ -630,6 +632,8 @@ editor (console only)")
libx11
libxft
libxpm
libxrender
libxt
libwebp
pango
poppler)))))
+1 -1
View File
@@ -182,7 +182,7 @@ locations in the store in '.el' files."
;; of generation -pkg.el will fail.
(condition-case
nil
(let ((version (lm-version)))
(let ((version (or (lm-header "package-version") (lm-version))))
;; raises an error if version is invalid
(and (version-to-list version) version))
(error "0.0.0"))