mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 23:06:59 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs: Find real GVFS processes.

Browse source 
* 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:
Liliana Marie Prikler 2021-10-13 21:32:07 +02:00
parent 269baba919
commit f725279cdd
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/packages/emacs.scm
View file

@ -136,6 +136,12 @@ (define-public emacs
"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 _