diff options
author | Glenn Morris <rgm@gnu.org> | 2012-02-17 00:19:12 -0800 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2012-02-17 00:19:12 -0800 |
commit | 95ddf44200640d9b1ec9d52768044e709a860eec (patch) | |
tree | 22d62116692746f137a12d9683e474991197aa0c /lisp/net/socks.el | |
parent | 0fd2c9a35bf08acb70f047835b89feef14469e0b (diff) | |
download | emacs-95ddf44200640d9b1ec9d52768044e709a860eec.tar.gz |
* lisp/net/socks.el: Require network-stream.
Fixes: debbugs:10599
Diffstat (limited to 'lisp/net/socks.el')
-rw-r--r-- | lisp/net/socks.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/net/socks.el b/lisp/net/socks.el index b9431bdeed7..3c94e7d1b22 100644 --- a/lisp/net/socks.el +++ b/lisp/net/socks.el @@ -35,6 +35,8 @@ (require 'wid-edit)) (require 'custom) +;; FIXME this is bad practice, and who is it for anyway, since Emacs +;; has split-string since at least 21.1. (if (not (fboundp 'split-string)) (defun split-string (string &optional pattern) "Return a list of substrings of STRING which are separated by PATTERN. @@ -335,10 +337,17 @@ If PATTERN is omitted, it defaults to \"[ \\f\\t\\n\\r\\v]+\"." (declare-function socks-original-open-network-stream "socks") ; fset +;; FIXME this is a terrible idea. +;; It is not even compatible with the argument spec of open-network-stream +;; in 24.1. If this is really necessary, open-network-stream +;; could get a wrapper hook, or defer to open-network-stream-function. + (defvar socks-override-functions nil "*Whether to overwrite the open-network-stream function with the SOCKSified version.") +(require 'network-stream) + (if (fboundp 'socks-original-open-network-stream) nil ; Do nothing, we've been here already (defalias 'socks-original-open-network-stream |