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.
This commit is contained in:
parent
269baba919
commit
f725279cdd
@ -136,6 +136,12 @@
|
|||||||
"lisp/progmodes/sh-script.el")
|
"lisp/progmodes/sh-script.el")
|
||||||
(("\"/bin/sh\"")
|
(("\"/bin/sh\"")
|
||||||
(format #f "~s" (which "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))
|
#t))
|
||||||
(add-before 'configure 'fix-/bin/pwd
|
(add-before 'configure 'fix-/bin/pwd
|
||||||
(lambda _
|
(lambda _
|
||||||
|
Loading…
Reference in New Issue
Block a user