[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/socks.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/socks.el,v |
Date: |
Wed, 28 Nov 2007 04:04:21 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 07/11/28 04:04:21
Index: socks.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/socks.el,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -b -r1.8 -r1.9
--- socks.el 13 Oct 2007 03:01:49 -0000 1.8
+++ socks.el 28 Nov 2007 04:04:21 -0000 1.9
@@ -335,6 +335,19 @@
)
)
+(declare-function socks-original-open-network-stream "socks") ; fset
+
+(defvar socks-override-functions nil
+ "*Whether to overwrite the open-network-stream function with the SOCKSified
+version.")
+
+(if (fboundp 'socks-original-open-network-stream)
+ nil ; Do nothing, we've been here already
+ (defalias 'socks-original-open-network-stream
+ (symbol-function 'open-network-stream))
+ (if socks-override-functions
+ (defalias 'open-network-stream 'socks-open-network-stream)))
+
(defun socks-open-connection (server-info)
(interactive)
(save-excursion
@@ -473,17 +486,6 @@
(setq noproxy (cdr noproxy)))
route))
-(defvar socks-override-functions nil
- "*Whether to overwrite the open-network-stream function with the SOCKSified
-version.")
-
-(if (fboundp 'socks-original-open-network-stream)
- nil ; Do nothing, we've been here already
- (defalias 'socks-original-open-network-stream
- (symbol-function 'open-network-stream))
- (if socks-override-functions
- (defalias 'open-network-stream 'socks-open-network-stream)))
-
(defvar socks-services-file "/etc/services")
(defvar socks-tcp-services (make-hash-table :size 13 :test 'equal))
(defvar socks-udp-services (make-hash-table :size 13 :test 'equal))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/net/socks.el,v,
Glenn Morris <=