diff options
author | Glenn Morris <rgm@gnu.org> | 2007-09-19 07:52:30 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2007-09-19 07:52:30 +0000 |
commit | 15bd294df1ef5042a1beddc8a464c1d50569fd58 (patch) | |
tree | 388807f1d54d2174b5c194a3c6f8b7659dfa1ac9 /lisp/net/socks.el | |
parent | ff0a21d6673450ead9b10d64571ab268aaed0926 (diff) | |
download | emacs-15bd294df1ef5042a1beddc8a464c1d50569fd58.tar.gz |
(socks-open-network-stream): Signal an explicit error if the port
associated with a service string can't be found.
Diffstat (limited to 'lisp/net/socks.el')
-rw-r--r-- | lisp/net/socks.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/net/socks.el b/lisp/net/socks.el index 5a2364c652c..2c8b6dafed5 100644 --- a/lisp/net/socks.el +++ b/lisp/net/socks.el @@ -546,7 +546,10 @@ version.") atype host (if (stringp service) - (socks-find-services-entry service) + (or + (socks-find-services-entry service) + (error "Unable to find port for service `%s'" + service)) service)) (puthash 'buffer buffer info) (puthash 'host host info) |