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

New defcustom 'vc-tor'

Browse source 
* lisp/vc/vc-dispatcher.el (vc-tor): New user option.
(vc-do-command): If vc-tor is non-nil, use 'torsocks'.
This commit is contained in:
Richard Stallman 2019-10-13 21:42:53 -04:00 • committed by Eli Zaretskii
parent a0f7ea5999
commit 626e0a6aad
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -267,6 +267,11 @@ and is passed 3 arguments: the COMMAND, the FILES and the FLAGS.")
;; FIXME what about file names with spaces?
(if (not filelist) "." (mapconcat 'identity filelist " ")))
(defcustom vc-tor nil
"If non-nil, communicate with the repository site via Tor."
:type 'boolean
:group 'vc)
;;;###autoload
(defun vc-do-command (buffer okstatus command file-or-list &rest flags)
"Execute a slave command, notifying user and checking for errors.
@ -295,7 +300,8 @@ case, and the process object in the asynchronous case."
;; due to potential truncation of long messages.
(message-truncate-lines t)
(full-command
(concat (if (string= (substring command -1) "\n")
(concat (if vc-tor "torsocks " "")
(if (string= (substring command -1) "\n")
(substring command 0 -1)
command)
" " (vc-delistify flags)