Mercurial > emacs

changeset 80077:535ef1cccea5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 746ec36bb378
children 09758686fa3c
files lisp/net/net-utils.el
diffstat 1 files changed, 11 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/net/net-utils.el	Fri Feb 08 05:00:46 2008 +0000
+++ b/lisp/net/net-utils.el	Fri Feb 08 18:22:19 2008 +0000
@@ -93,7 +93,7 @@
   :group 'net-utils
   :type  '(repeat string))
 
-(defcustom ipconfig-program
+(defcustom ifconfig-program
   (if (eq system-type 'windows-nt)
       "ipconfig"
     "ifconfig")
@@ -101,11 +101,11 @@
   :group 'net-utils
   :type  'string)
 
-(defcustom ipconfig-program-options
+(defcustom ifconfig-program-options
   (list
    (if (eq system-type 'windows-nt)
        "/all" "-a"))
-  "Options for ipconfig-program."
+  "Options for `ifconfig-program'."
   :group 'net-utils
   :type  '(repeat string))
 
@@ -352,18 +352,18 @@
      options)))
 
 ;;;###autoload
-(defun ipconfig ()
-  "Run ipconfig program."
+(defun ifconfig ()
+  "Run ifconfig program."
   (interactive)
   (net-utils-run-program
-   "Ipconfig"
-   (concat "** Ipconfig ** " ipconfig-program " ** ")
-   ipconfig-program
-   ipconfig-program-options))
+   "Ifconfig"
+   (concat "** Ifconfig ** " ifconfig-program " ** ")
+   ifconfig-program
+   ifconfig-program-options))
 
-;; This is the normal name on most Unixes.
+;; Windows uses this name.
 ;;;###autoload
-(defalias 'ifconfig 'ipconfig)
+(defalias 'ipconfig 'ifconfig)
 
 ;;;###autoload
 (defun netstat ()