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) |