diff options
Diffstat (limited to 'lisp/net/net-utils.el')
| -rw-r--r-- | lisp/net/net-utils.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el index fcfb8524b09..e2e32436078 100644 --- a/lisp/net/net-utils.el +++ b/lisp/net/net-utils.el @@ -109,6 +109,16 @@ These options can be used to limit how many ICMP packets are emitted." :group 'net-utils :type '(repeat string)) +(defcustom iwconfig-program "iwconfig" + "Program to print wireless network configuration information." + :group 'net-utils + :type 'string) + +(defcustom iwconfig-program-options nil + "Options for `iwconfig-program'." + :group 'net-utils + :type '(repeat string)) + (defcustom netstat-program "netstat" "Program to print network statistics." :group 'net-utils @@ -366,6 +376,16 @@ If your system's ping continues until interrupted, you can try setting (defalias 'ifconfig 'ipconfig) ;;;###autoload +(defun iwconfig () + "Run iwconfig program." + (interactive) + (net-utils-run-program + "Iwconfig" + (concat "** Iwconfig ** " iwconfig-program " ** ") + iwconfig-program + iwconfig-program-options)) + +;;;###autoload (defun netstat () "Run netstat program." (interactive) |