~ruther/guix-local: gnu: emacs: Find real GVFS processes.

f725279cdd66e7739fd756807ef2a1c7b1611d51 — Liliana Marie Prikler 5 years ago 269baba

gnu: emacs: Find real GVFS processes.

* gnu/packages/emacs.scm (emacs)[#:phases]<patch-program-file-names>: Expand
calls to “tramp-compat-process-running-p” so that Guix wrappers are also
matched.

patch browse .tar.gz .zip

1 files changed, 6 insertions(+), 0 deletions(-)

M gnu/packages/emacs.scm

M gnu/packages/emacs.scm => gnu/packages/emacs.scm +6 -0

@@ 136,6 136,12 @@
                             "lisp/progmodes/sh-script.el")
                (("\"/bin/sh\"")
                 (format #f "~s" (which "sh"))))
+             ;; match ".gvfs-fuse-daemon-real" and ".gvfsd-fuse-real"
+             ;; respectively when looking for GVFS processes.
+             (substitute* "lisp/net/tramp-gvfs.el"
+               (("\\(tramp-compat-process-running-p \"(.*)\"\\)" all process)
+                (format #f "(or ~a (tramp-compat-process-running-p ~s))"
+                        all (string-append "." process "-real"))))
              #t))
          (add-before 'configure 'fix-/bin/pwd
            (lambda _