-'(defcustom socks-server-aliases nil
- "A list of server aliases for use in access control and filtering rules."
- :group 'socks
- :type '(repeat (list :format "%v"
- :value ("" "" 1080 5)
- (string :tag "Alias")
- (string :tag "Hostname/IP Address")
- (integer :tag "Port #")
- (choice :tag "SOCKS Version"
- (integer :tag "SOCKS v4" :value 4)
- (integer :tag "SOCKS v5" :value 5)))))
-
-'(defcustom socks-network-aliases
- '(("Anywhere" (netmask "0.0.0.0" "0.0.0.0")))
- "A list of network aliases for use in subsequent rules."
- :group 'socks
- :type '(repeat (list :format "%v"
- :value (netmask "" "255.255.255.0")
- (string :tag "Alias")
- (radio-button-choice
- :format "%v"
- (list :tag "IP address range"
- (const :format "" :value range)
- (string :tag "From")
- (string :tag "To"))
- (list :tag "IP address/netmask"
- (const :format "" :value netmask)
- (string :tag "IP Address")
- (string :tag "Netmask"))
- (list :tag "Domain Name"
- (const :format "" :value domain)
- (string :tag "Domain name"))
- (list :tag "Unique hostname/IP address"
- (const :format "" :value exact)
- (string :tag "Hostname/IP Address"))))))
-
-'(defun s5-servers-filter ()
- (if socks-server-aliases
- (mapcar (lambda (x) (list 'const :tag (car x) :value (car x))) s5-server-aliases)
- '((const :tag "No aliases defined" :value nil))))
-
-'(defun s5-network-aliases-filter ()
- (mapcar (lambda (x) (list 'const :tag (car x) :value (car x)))
- socks-network-aliases))
-
-'(defcustom socks-redirection-rules
- nil
- "A list of redirection rules."
- :group 'socks
- :type '(repeat (list :format "%v"
- :value ("Anywhere" nil)
- (dynamic-choice :choice-function s5-network-aliases-filter
- :tag "Destination network")
- (radio-button-choice
- :tag "Connection type"
- (const :tag "Direct connection" :value nil)
- (dynamic-choice :format "%t: %[%v%]"
- :choice-function s5-servers-filter
- :tag "Proxy chain via")))))
+;;; (defcustom socks-server-aliases nil
+;;; "A list of server aliases for use in access control and filtering rules."
+;;; :group 'socks
+;;; :type '(repeat (list :format "%v"
+;;; :value ("" "" 1080 5)
+;;; (string :tag "Alias")
+;;; (string :tag "Hostname/IP Address")
+;;; (integer :tag "Port #")
+;;; (choice :tag "SOCKS Version"
+;;; (integer :tag "SOCKS v4" :value 4)
+;;; (integer :tag "SOCKS v5" :value 5)))))
+;;;
+;;; (defcustom socks-network-aliases
+;;; '(("Anywhere" (netmask "0.0.0.0" "0.0.0.0")))
+;;; "A list of network aliases for use in subsequent rules."
+;;; :group 'socks
+;;; :type '(repeat (list :format "%v"
+;;; :value (netmask "" "255.255.255.0")
+;;; (string :tag "Alias")
+;;; (radio-button-choice
+;;; :format "%v"
+;;; (list :tag "IP address range"
+;;; (const :format "" :value range)
+;;; (string :tag "From")
+;;; (string :tag "To"))
+;;; (list :tag "IP address/netmask"
+;;; (const :format "" :value netmask)
+;;; (string :tag "IP Address")
+;;; (string :tag "Netmask"))
+;;; (list :tag "Domain Name"
+;;; (const :format "" :value domain)
+;;; (string :tag "Domain name"))
+;;; (list :tag "Unique hostname/IP address"
+;;; (const :format "" :value exact)
+;;; (string :tag "Hostname/IP Address"))))))
+;;;
+;;; (defun s5-servers-filter ()
+;;; (if socks-server-aliases
+;;; (mapcar (lambda (x) (list 'const :tag (car x) :value (car x))) s5-server-aliases)
+;;; '((const :tag "No aliases defined" :value nil))))
+;;;
+;;; (defun s5-network-aliases-filter ()
+;;; (mapcar (lambda (x) (list 'const :tag (car x) :value (car x)))
+;;; socks-network-aliases))
+;;;
+;;; (defcustom socks-redirection-rules
+;;; nil
+;;; "A list of redirection rules."
+;;; :group 'socks
+;;; :type '(repeat (list :format "%v"
+;;; :value ("Anywhere" nil)
+;;; (dynamic-choice :choice-function s5-network-aliases-filter
+;;; :tag "Destination network")
+;;; (radio-button-choice
+;;; :tag "Connection type"
+;;; (const :tag "Direct connection" :value nil)
+;;; (dynamic-choice :format "%t: %[%v%]"
+;;; :choice-function s5-servers-filter
+;;; :tag "Proxy chain via")))))