diff options
| author | Richard Stallman <rms@gnu.org> | 2019-10-13 21:42:53 -0400 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2019-10-26 12:46:12 +0300 |
| commit | 626e0a6aad6b0f3c7348f37c9b2c9854b06b449b (patch) | |
| tree | 3d80664a42d1ee86a05be25d96266b27b8c4e697 /lisp/vc/vc-dispatcher.el | |
| parent | a0f7ea599919f967331173fdde2b87e50c88c4b7 (diff) | |
| download | emacs-626e0a6aad6b0f3c7348f37c9b2c9854b06b449b.tar.gz | |
New defcustom 'vc-tor'
* lisp/vc/vc-dispatcher.el (vc-tor): New user option.
(vc-do-command): If vc-tor is non-nil, use 'torsocks'.
Diffstat (limited to 'lisp/vc/vc-dispatcher.el')
| -rw-r--r-- | lisp/vc/vc-dispatcher.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el index 40c392b21de..bf238dedbb8 100644 --- a/lisp/vc/vc-dispatcher.el +++ b/lisp/vc/vc-dispatcher.el @@ -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) |