Mercurial > emacs
comparison lisp/net/net-utils.el @ 80077:535ef1cccea5
(ifconfig): Renamed from ipconfig.
(ipconfig): Alas to ifconfig.
(ifconfig-program): Renamed from ipconfig-program.
(ifconfig-program-options): Renamed from ipconfig-program-options.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 08 Feb 2008 18:22:19 +0000 |
| parents | 6888fd3398e8 |
| children | b0ced9a93377 |
comparison
equal
deleted
inserted
replaced
| 80076:746ec36bb378 | 80077:535ef1cccea5 |
|---|---|
| 91 "Options for the ping program. | 91 "Options for the ping program. |
| 92 These options can be used to limit how many ICMP packets are emitted." | 92 These options can be used to limit how many ICMP packets are emitted." |
| 93 :group 'net-utils | 93 :group 'net-utils |
| 94 :type '(repeat string)) | 94 :type '(repeat string)) |
| 95 | 95 |
| 96 (defcustom ipconfig-program | 96 (defcustom ifconfig-program |
| 97 (if (eq system-type 'windows-nt) | 97 (if (eq system-type 'windows-nt) |
| 98 "ipconfig" | 98 "ipconfig" |
| 99 "ifconfig") | 99 "ifconfig") |
| 100 "Program to print network configuration information." | 100 "Program to print network configuration information." |
| 101 :group 'net-utils | 101 :group 'net-utils |
| 102 :type 'string) | 102 :type 'string) |
| 103 | 103 |
| 104 (defcustom ipconfig-program-options | 104 (defcustom ifconfig-program-options |
| 105 (list | 105 (list |
| 106 (if (eq system-type 'windows-nt) | 106 (if (eq system-type 'windows-nt) |
| 107 "/all" "-a")) | 107 "/all" "-a")) |
| 108 "Options for ipconfig-program." | 108 "Options for `ifconfig-program'." |
| 109 :group 'net-utils | 109 :group 'net-utils |
| 110 :type '(repeat string)) | 110 :type '(repeat string)) |
| 111 | 111 |
| 112 (defcustom netstat-program "netstat" | 112 (defcustom netstat-program "netstat" |
| 113 "Program to print network statistics." | 113 "Program to print network statistics." |
| 350 (concat "** Ping ** " ping-program " ** " host) | 350 (concat "** Ping ** " ping-program " ** " host) |
| 351 ping-program | 351 ping-program |
| 352 options))) | 352 options))) |
| 353 | 353 |
| 354 ;;;###autoload | 354 ;;;###autoload |
| 355 (defun ipconfig () | 355 (defun ifconfig () |
| 356 "Run ipconfig program." | 356 "Run ifconfig program." |
| 357 (interactive) | 357 (interactive) |
| 358 (net-utils-run-program | 358 (net-utils-run-program |
| 359 "Ipconfig" | 359 "Ifconfig" |
| 360 (concat "** Ipconfig ** " ipconfig-program " ** ") | 360 (concat "** Ifconfig ** " ifconfig-program " ** ") |
| 361 ipconfig-program | 361 ifconfig-program |
| 362 ipconfig-program-options)) | 362 ifconfig-program-options)) |
| 363 | 363 |
| 364 ;; This is the normal name on most Unixes. | 364 ;; Windows uses this name. |
| 365 ;;;###autoload | 365 ;;;###autoload |
| 366 (defalias 'ifconfig 'ipconfig) | 366 (defalias 'ipconfig 'ifconfig) |
| 367 | 367 |
| 368 ;;;###autoload | 368 ;;;###autoload |
| 369 (defun netstat () | 369 (defun netstat () |
| 370 "Run netstat program." | 370 "Run netstat program." |
| 371 (interactive) | 371 (interactive) |