From 33bd0defaccb4d73b0187e5aa5837cb19fae649d Mon Sep 17 00:00:00 2001 From: Vincent Zhang Date: Wed, 21 Aug 2019 18:19:33 +0800 Subject: [PATCH] Improve proxy functions. --- lisp/init-funcs.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/init-funcs.el b/lisp/init-funcs.el index 2aa109014..426fde1a2 100644 --- a/lisp/init-funcs.el +++ b/lisp/init-funcs.el @@ -276,22 +276,23 @@ (defun proxy-socks-enable () "Enable SOCKS proxy." (interactive) - (setq url-gateway-method 'socks) - (setq socks-noproxy '("localhost")) - (setq socks-server '("Default server" "127.0.0.1" 1086 5)) + (require 'socks) + (setq url-gateway-method 'socks + socks-noproxy '("localhost") + socks-server '("Default server" "127.0.0.1" 1086 5)) (proxy-socks-show)) (defun proxy-socks-disable () "Disable SOCKS proxy." (interactive) - (setq url-gateway-method 'native) - (setq socks-noproxy nil) + (setq url-gateway-method 'native + socks-noproxy nil) (proxy-socks-show)) (defun proxy-socks-toggle () "Toggle SOCKS proxy." (interactive) - (if socks-noproxy + (if (bound-and-true-p socks-noproxy) (proxy-socks-disable) (proxy-socks-enable)))