amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-helpful: Update to 0.21.

Browse source 
* gnu/packages/patches/emacs-helpful-fix-tests.patch: New file.
* gnu/local.mk (dist_patch_DATA): Register it here.
* gnu/packages/emacs-xyz.scm (emacs-helpful): Update to 0.21.
[source]<patches>: Use it here.
This commit is contained in:
Liliana Marie Prikler 2023-08-19 01:05:22 +02:00
parent 5a989fc417
commit 1fcf9c0d7d
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
3 changed files with 54 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

28
gnu/packages/patches/emacs-helpful-fix-tests.patch Normal file
View file

@ -0,0 +1,28 @@
From 233e254bbe44f70ca899a506b3706af489228fda Mon Sep 17 00:00:00 2001
From: aagon <aymeric.agon@hotmail.fr>
Date: Thu, 10 Aug 2023 20:03:52 +0200
Subject: [PATCH] Repair helpful--display-implementations test for emacs 29.1
---
test/helpful-unit-test.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/test/helpful-unit-test.el b/test/helpful-unit-test.el
index 0f5177b..0716b0d 100644
--- a/test/helpful-unit-test.el
+++ b/test/helpful-unit-test.el
@@ -1089,8 +1089,12 @@ find the source code."
(require 'xref)
(helpful-function 'xref-location-marker)
(should (s-contains-p "Implementations" (buffer-string)))
- (should (s-contains-p "((l xref-file-location))" (buffer-string)))
- (should (s-contains-p "((l xref-buffer-location))" (buffer-string))))
+ (should (if (version< emacs-version "29.1")
+ (s-contains-p "((l xref-file-location))" (buffer-string))
+ (s-contains-p "(xref-location-marker (L xref-file-location))" (buffer-string))))
+ (should (if (version< emacs-version "29.1")
+ (s-contains-p "((l xref-buffer-location))" (buffer-string))
+ (s-contains-p "(xref-location-marker (L xref-buffer-location))" (buffer-string)))))
(defun helpful--boring-advice (orig-fn &rest args)
(apply orig-fn args))