[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Option to use Tor to communicate with repo site
From: |
Richard Stallman |
Subject: |
Option to use Tor to communicate with repo site |
Date: |
Sun, 13 Oct 2019 21:42:53 -0400 |
[[[ To any NSA and FBI agents reading my email: please consider ]]]
[[[ whether defending the US Constitution against all enemies, ]]]
[[[ foreign or domestic, requires you to follow Snowden's example. ]]]
Would someone please install this?
2019-10-12 Richard Stallman <address@hidden>
* lisp/vc/vc-dispatcher.el (vc-tor): New user option.
(vc-do-command): If vc-tor is non-nil, use torsocks.
The defcustom needs to say what version it is added in.
diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el
index 40c392b..bf238de 100644
--- a/lisp/vc/vc-dispatcher.el
+++ b/lisp/vc/vc-dispatcher.el
@@ -267,6 +267,11 @@ vc-delistify
;; 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 @@ vc-do-command
;; 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)
--
Dr Richard Stallman
Founder, Free Software Foundation (https://gnu.org, https://fsf.org)
Internet Hall-of-Famer (https://internethalloffame.org)
- Option to use Tor to communicate with repo site,
Richard Stallman <=