diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2023-02-04 18:11:24 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2023-02-04 18:11:24 +0100 |
| commit | b670114590551f5f4a8272041cd98e01c93fb762 (patch) | |
| tree | 0d23290730351fabfd39c87181df07f410bad692 | |
| parent | f0d1cddf5bf68bbe0cfa973465ac326a33db433f (diff) | |
| download | guix-b670114590551f5f4a8272041cd98e01c93fb762.tar.gz | |
gnu: emacs-inspector: Update to 0.16.
* gnu/packages/emacs-xyz.scm (emacs-inspector): Update to 0.16. [arguments]<#:phases>: Add another compatibility tweak for Emacs 28.
| -rw-r--r-- | gnu/packages/emacs-xyz.scm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index a7a94e613e..9fefce6dff 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -562,10 +562,10 @@ configuration language which makes it trivial to write your own themes.") (license license:gpl3+)))) (define-public emacs-inspector - (let ((commit "cab7ea001baa54eff6393f171e9ef1f69258d5ac")) ;version bump + (let ((commit "32f752c5cd996991c4dba67733cfb4e4159c2e75")) ;version bump (package (name "emacs-inspector") - (version "0.15") + (version "0.16") (source (origin (uri (git-reference @@ -573,7 +573,7 @@ configuration language which makes it trivial to write your own themes.") (commit commit))) (method git-fetch) (sha256 - (base32 "00gh9s3868w0zbhcsqsvq5wqgcfpa4j7sxqwzxcxb51cmrnhp30l")) + (base32 "1zsj24f0qjdy8vxwbn8kc9xy0ffwfc54dyy3dya8j59rlqx5nmdh")) (file-name (git-file-name name version)))) (build-system emacs-build-system) (arguments @@ -589,9 +589,14 @@ configuration language which makes it trivial to write your own themes.") (add-after 'unpack 'preserve-emacs-28-compatibility ;; XXX: `cl-constantly' function is defined in "cl-lib" starting ;; from Emacs 29+. For now, replace it with its definition. + ;; Also, the variables `pp-max-width' and `pp-use-max-width' are + ;; from Emacs 29+. Replace them with their default value. (lambda _ (substitute* "tree-inspector.el" - (("cl-constantly") "lambda (_)")))) + (("cl-constantly") "lambda (_)")) + (substitute* "inspector.el" + (("(defcustom inspector-.*? )pp(-use)?-max-width" _ lead flag) + (string-append lead (if flag "nil" "t")))))) (add-before 'check 'skip-failing-test (lambda _ (substitute* "tree-inspector-tests.el" |