@@ -17118,7 +17118,7 @@ (define-public emacs-neotree
(define-public emacs-org
(package
(name "emacs-org")
- (version "9.6.30")
+ (version "9.7.4")
(source
(origin
(method git-fetch)
@@ -17127,7 +17127,7 @@ (define-public emacs-org
(commit (string-append "release_" version))))
(file-name (git-file-name name version))
(sha256
- (base32 "0v4b3yl4limrq3jgf0jvvx73cs7d36p14c2x93pdvn50mjykii3f"))))
+ (base32 "00crs2q4yvmv2jgzmcfyl2g6m7g42zpggyssmcj8anwrsp748z9b"))))
(build-system emacs-build-system)
(arguments
(list
@@ -17156,8 +17156,7 @@ (define-public emacs-org
(for-each make-file-writable
'("babel.org"
"ob-awk-test.org"
- "ob-sed-test.org"
- "ob-shell-test.org"))
+ "ob-sed-test.org"))
;; Specify where sh executable is.
(let ((sh (search-input-file inputs "/bin/sh")))
(substitute* "babel.org"
@@ -17166,6 +17165,11 @@ (define-public emacs-org
(substitute* "testing/lisp/test-ob-shell.el"
(("ob-shell/remote-with-stdin-or-cmdline .*" all)
(string-append all " (skip-unless nil)\n")))
+ ;; XXX: ob-tangle/collect-blocks fails because the test assumes
+ ;; that ~/../.. corresponds to /. This isn't true in our case.
+ (substitute* "testing/lisp/test-ob-tangle.el"
+ (("ob-tangle/collect-blocks .*" all)
+ (string-append all " (skip-unless nil)\n")))
(substitute* "testing/lisp/test-org.el"
(("test-org/org-(encode-time|time-string-to-time) .*" all)
(string-append all " (skip-unless nil)\n")))))