[Emacs-diffs] Changes to emacs/lisp/net/net-utils.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     08/03/01 01:28:32

Index: lisp/net/net-utils.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/net-utils.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- lisp/net/net-utils.el       26 Feb 2008 04:31:20 -0000      1.31
+++ lisp/net/net-utils.el       1 Mar 2008 01:28:31 -0000       1.32
@@ -105,7 +105,7 @@
   (list
    (if (eq system-type 'windows-nt)
        "/all" "-a"))
-  "Options for `ifconfig-program'."
+  "Options for the ifconfig program."
   :group 'net-utils
   :type  '(repeat string))
 
@@ -131,7 +131,7 @@
 
 (defcustom netstat-program-options
   (list "-a")
-  "Options for netstat-program."
+  "Options for the netstat program."
   :group 'net-utils
   :type  '(repeat string))
 
@@ -142,7 +142,7 @@
 
 (defcustom arp-program-options
   (list "-a")
-  "Options for arp-program."
+  "Options for the arp program."
   :group 'net-utils
   :type  '(repeat string))
 
@@ -158,7 +158,7 @@
   (if (eq system-type 'windows-nt)
       (list "print")
     (list "-r"))
-  "Options for route-program."
+  "Options for the route program."
   :group 'net-utils
   :type  '(repeat string))
 
@@ -168,7 +168,7 @@
   :type  'string)
 
 (defcustom nslookup-program-options  nil
-  "List of options to pass to the nslookup program."
+  "Options for the nslookup program."
   :group 'net-utils
   :type  '(repeat string))
 
@@ -186,12 +186,12 @@
   :type  'string)
 
 (defcustom ftp-program "ftp"
-  "Progam to run to do FTP transfers."
+  "Program to run to do FTP transfers."
   :group 'net-utils
   :type  'string)
 
 (defcustom ftp-program-options nil
-  "List of options to pass to the FTP program."
+  "Options for the ftp program."
   :group 'net-utils
   :type  '(repeat string))
 
@@ -209,7 +209,7 @@
   :type  'string)
 
 (defcustom smbclient-program-options nil
-  "List of options to pass to the smbclient program."
+  "Options for the smbclient program."
   :group 'net-utils
   :type  '(repeat string))
 
@@ -224,14 +224,12 @@
 (defcustom dns-lookup-program  "host"
   "Program to interactively query DNS information."
   :group 'net-utils
-  :type  'string
-  )
+  :type  'string)
 
 (defcustom dns-lookup-program-options  nil
-  "List of options to pass to the dns-lookup program."
+  "Options for the dns-lookup program."
   :group 'net-utils
-  :type  '(repeat string)
-  )
+  :type  '(repeat string))
 
 ;; Internal variables
 (defvar network-connection-service nil)
@@ -397,7 +395,7 @@
 
 ;;;###autoload
 (defun arp ()
-  "Run the arp program."
+  "Run arp program."
   (interactive)
   (net-utils-run-program
    "Arp"
@@ -407,7 +405,7 @@
 
 ;;;###autoload
 (defun route ()
-  "Run the route program."
+  "Run route program."
   (interactive)
   (net-utils-run-program
    "Route"