procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

vc-do-command: Actually include "torsocks" in the command

Browse source 
* lisp/vc/vc-dispatcher.el (vc-do-command): When vc-tor is non-nil,
actually include "torsocks" in the command to be run (bug#57870).
This commit is contained in:
Sean Whitton 2022-09-16 16:18:35 -07:00
parent 2f7139a15c
commit 0a61a7c1fa
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/vc/vc-dispatcher.el
View file

@ -298,6 +298,9 @@ name or set of files). If an optional list of FLAGS is present,
that is inserted into the command line before the filename.
Return the return value of the slave command in the synchronous
case, and the process object in the asynchronous case."
(when vc-tor
(push command flags)
(setq command "torsocks"))
;; FIXME: file-relative-name can return a bogus result because
;; it doesn't look at the actual file-system to see if symlinks
;; come into play.
@ -310,8 +313,7 @@ case, and the process object in the asynchronous case."
;; due to potential truncation of long messages.
(message-truncate-lines t)
(full-command
(concat (if vc-tor "torsocks " "")
(if (string= (substring command -1) "\n")
(concat (if (string= (substring command -1) "\n")
(substring command 0 -1)
command)
" " (vc-delistify flags)