summaryrefslogtreecommitdiff
path: root/lisp/net/net-utils.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2008-02-23 20:01:44 +0000
committerGlenn Morris <rgm@gnu.org>2008-02-23 20:01:44 +0000
commite69ec7213e2e995c4f74a4afeff1b53676fa2a2c (patch)
treee76a8ebf702c5a973e9b30fa16f86310897e7a55 /lisp/net/net-utils.el
parent0329d8a3e84dcf8cc2fb1d8913f86a935ebaeb1e (diff)
downloademacs-e69ec7213e2e995c4f74a4afeff1b53676fa2a2c.tar.gz
Yoni Rabkin <yoni at rabkins.net> (tiny change)
(iwconfig-program, iwconfig-program-options): New variables. (iwconfig): New function.
Diffstat (limited to 'lisp/net/net-utils.el')
-rw-r--r--lisp/net/net-utils.el20
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)