branch master updated: gnu: emacs-org-cliplink: Improve a phase.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

ngz pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 98c4f0135c gnu: emacs-org-cliplink: Improve a phase.
98c4f0135c is described below

commit 98c4f0135cd2cd5e340f81cbd5f716e055a8ea2b
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Fri Oct 21 10:10:46 2022 +0200

    gnu: emacs-org-cliplink: Improve a phase.
    
    * gnu/packages/emacs-xyz.scm (emacs-org-cliplink)[arguments]<#:phases>: Fix
    phase name.  Clarify substitution done in the phase.
---
 gnu/packages/emacs-xyz.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 0acede2da4..eef7b54777 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -33525,12 +33525,12 @@ the buffer you want to undo.  An undo tree buffer 
should pop up.")
         #:test-command #~(list "ert-runner")
         #:phases
         #~(modify-phases %standard-phases
-            (add-after 'unpack 'patch-geiser-racket-binary
+            (add-after 'unpack 'patch-curl-executable
               (lambda* (#:key inputs #:allow-other-keys)
                 (substitute* "org-cliplink-transport.el"
-                  (("curl\")")
-                   (string-append (search-input-file inputs "bin/curl")
-                                  "\")"))))))))
+                  (("\\(executable-find \"curl\"\\)")
+                   (let ((curl (search-input-file inputs "/bin/curl")))
+                     (string-append "\"" curl "\"")))))))))
       (native-inputs
        (list emacs-el-mock emacs-ert-runner emacs-undercover))
       (inputs