tribes/guix
1
0
Fork 1
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-26 04:00:30 +02:00
Code Activity

gnu: emacs: Fix compile time warning.

Browse Source 
* gnu/packages/patches/emacs-native-comp-fix-filenames.patch: Use correct
function for datatype.
* gnu/packages/patches/emacs-next-native-comp-fix-filenames.patch: Use correct
function for datatype.
* gnu/packages/emacs.scm (emacs-minimal): Remove now unnecessary flags.

Change-Id: Id362deef83f28653f5bc3babb4a07726c1443ebf
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Morgan Smith
2025-12-11 18:43:58 -05:00
committed by Liliana Marie Prikler
parent 73705480de
commit 33e6f15c74
3 changed files with 3 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
gnu/packages/emacs.scm
View File

@@ -175,12 +175,7 @@
(arguments
(list
#:modules (%emacs-modules build-system)
#:configure-flags #~(list
#$(string-append
"CFLAGS=-g -O2"
" -Wno-error=incompatible-pointer-types")
"--with-gnutls=no"
"--disable-build-details")
#:configure-flags #~(list "--with-gnutls=no" "--disable-build-details")
#:make-flags
#~(list (string-append "SELECTOR=" #$%selector)
(let ((release-date "2025-08-14 05:04:03"))

2
gnu/packages/patches/emacs-native-comp-fix-filenames.patch
View File

@@ -123,7 +123,7 @@ Index: emacs-next/src/comp.c
- Lisp_Object hash = concat3 (path_hash, separator, content_hash);
- return concat3 (filename, hash, build_string (NATIVE_ELISP_SUFFIX));
+
+ if (file_name_absolute_p (filename)) /* no match in load-path */
+ if (Ffile_name_absolute_p (filename)) /* no match in load-path */
+ filename = rel_name;
+
+ Lisp_Object bogus_dirs =

2
gnu/packages/patches/emacs-next-native-comp-fix-filenames.patch
View File

@@ -123,7 +123,7 @@ Index: emacs/src/comp.c
- Lisp_Object hash = concat3 (path_hash, separator, content_hash);
- return concat3 (filename, hash, build_string (NATIVE_ELISP_SUFFIX));
+
+ if (file_name_absolute_p (filename)) /* no match in load-path */
+ if (Ffile_name_absolute_p (filename)) /* no match in load-path */
+ filename = rel_name;
+
+ Lisp_Object bogus_dirs =