From e69ec7213e2e995c4f74a4afeff1b53676fa2a2c Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Sat, 23 Feb 2008 20:01:44 +0000
Subject: [PATCH] Yoni Rabkin  <yoni at rabkins.net>  (tiny change)

(iwconfig-program, iwconfig-program-options): New variables.
(iwconfig): New function.
---
 lisp/net/net-utils.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

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
@@ -365,6 +375,16 @@ If your system's ping continues until interrupted, you can try setting
 ;;;###autoload
 (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."
-- 
2.39.2