Mercurial > emacs
comparison lisp/net-utils.el @ 23269:16780f249ece
(traceroute-program-options, ping-program-options,
ipconfig-program-options, netstat-program-options,
arp-program-options, route-program-options,
nslookup-program-options, ftp-program-options): Fix customize
type.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Fri, 18 Sep 1998 09:15:45 +0000 |
| parents | 205f3fab9564 |
| children | 0757f6ee2e53 |
comparison
equal
deleted
inserted
replaced
| 23268:7f15741f1899 | 23269:16780f249ece |
|---|---|
| 75 ) | 75 ) |
| 76 | 76 |
| 77 (defcustom traceroute-program-options nil | 77 (defcustom traceroute-program-options nil |
| 78 "Options for the traceroute program." | 78 "Options for the traceroute program." |
| 79 :group 'net-utils | 79 :group 'net-utils |
| 80 :type '(repeat 'string) | 80 :type '(repeat string) |
| 81 ) | 81 ) |
| 82 | 82 |
| 83 (defcustom ping-program "ping" | 83 (defcustom ping-program "ping" |
| 84 "Program to send network test packets to a host." | 84 "Program to send network test packets to a host." |
| 85 :group 'net-utils | 85 :group 'net-utils |
| 92 (and (memq system-type (list 'linux 'gnu/linux 'irix)) | 92 (and (memq system-type (list 'linux 'gnu/linux 'irix)) |
| 93 (list "-c" "4")) | 93 (list "-c" "4")) |
| 94 "Options for the ping program. | 94 "Options for the ping program. |
| 95 These options can be used to limit how many ICMP packets are emitted." | 95 These options can be used to limit how many ICMP packets are emitted." |
| 96 :group 'net-utils | 96 :group 'net-utils |
| 97 :type '(repeat 'string) | 97 :type '(repeat string) |
| 98 ) | 98 ) |
| 99 | 99 |
| 100 (defcustom ipconfig-program | 100 (defcustom ipconfig-program |
| 101 (if (eq system-type 'windows-nt) | 101 (if (eq system-type 'windows-nt) |
| 102 "ipconfig" | 102 "ipconfig" |
| 110 (list | 110 (list |
| 111 (if (eq system-type 'windows-nt) | 111 (if (eq system-type 'windows-nt) |
| 112 "/all" "-a")) | 112 "/all" "-a")) |
| 113 "Options for ipconfig-program." | 113 "Options for ipconfig-program." |
| 114 :group 'net-utils | 114 :group 'net-utils |
| 115 :type '(repeat 'string) | 115 :type '(repeat string) |
| 116 ) | 116 ) |
| 117 | 117 |
| 118 (defcustom netstat-program "netstat" | 118 (defcustom netstat-program "netstat" |
| 119 "Program to print network statistics." | 119 "Program to print network statistics." |
| 120 :group 'net-utils | 120 :group 'net-utils |
| 123 | 123 |
| 124 (defcustom netstat-program-options | 124 (defcustom netstat-program-options |
| 125 (list "-a") | 125 (list "-a") |
| 126 "Options for netstat-program." | 126 "Options for netstat-program." |
| 127 :group 'net-utils | 127 :group 'net-utils |
| 128 :type '(repeat 'string) | 128 :type '(repeat string) |
| 129 ) | 129 ) |
| 130 | 130 |
| 131 (defcustom arp-program "arp" | 131 (defcustom arp-program "arp" |
| 132 "Program to print IP to address translation tables." | 132 "Program to print IP to address translation tables." |
| 133 :group 'net-utils | 133 :group 'net-utils |
| 136 | 136 |
| 137 (defcustom arp-program-options | 137 (defcustom arp-program-options |
| 138 (list "-a") | 138 (list "-a") |
| 139 "Options for arp-program." | 139 "Options for arp-program." |
| 140 :group 'net-utils | 140 :group 'net-utils |
| 141 :type '(repeat 'string) | 141 :type '(repeat string) |
| 142 ) | 142 ) |
| 143 | 143 |
| 144 (defcustom route-program | 144 (defcustom route-program |
| 145 (if (eq system-type 'windows-nt) | 145 (if (eq system-type 'windows-nt) |
| 146 "route" | 146 "route" |
| 154 (if (eq system-type 'windows-nt) | 154 (if (eq system-type 'windows-nt) |
| 155 (list "print") | 155 (list "print") |
| 156 (list "-r")) | 156 (list "-r")) |
| 157 "Options for route-program." | 157 "Options for route-program." |
| 158 :group 'net-utils | 158 :group 'net-utils |
| 159 :type '(repeat 'string) | 159 :type '(repeat string) |
| 160 ) | 160 ) |
| 161 | 161 |
| 162 (defcustom nslookup-program "nslookup" | 162 (defcustom nslookup-program "nslookup" |
| 163 "Program to interactively query DNS information." | 163 "Program to interactively query DNS information." |
| 164 :group 'net-utils | 164 :group 'net-utils |
| 166 ) | 166 ) |
| 167 | 167 |
| 168 (defcustom nslookup-program-options nil | 168 (defcustom nslookup-program-options nil |
| 169 "List of options to pass to the nslookup program." | 169 "List of options to pass to the nslookup program." |
| 170 :group 'net-utils | 170 :group 'net-utils |
| 171 :type '(repeat 'string) | 171 :type '(repeat string) |
| 172 ) | 172 ) |
| 173 | 173 |
| 174 (defcustom nslookup-prompt-regexp "^> " | 174 (defcustom nslookup-prompt-regexp "^> " |
| 175 "Regexp to match the nslookup prompt." | 175 "Regexp to match the nslookup prompt." |
| 176 :group 'net-utils | 176 :group 'net-utils |
| 184 ) | 184 ) |
| 185 | 185 |
| 186 (defcustom ftp-program-options nil | 186 (defcustom ftp-program-options nil |
| 187 "List of options to pass to the FTP program." | 187 "List of options to pass to the FTP program." |
| 188 :group 'net-utils | 188 :group 'net-utils |
| 189 :type '(repeat 'string) | 189 :type '(repeat string) |
| 190 ) | 190 ) |
| 191 | 191 |
| 192 (defcustom ftp-prompt-regexp "^ftp>" | 192 (defcustom ftp-prompt-regexp "^ftp>" |
| 193 "Regexp which matches the FTP program's prompt." | 193 "Regexp which matches the FTP program's prompt." |
| 194 :group 'net-utils | 194 :group 'net-utils |