diff options
Diffstat (limited to 'lisp/net/net-utils.el')
| -rw-r--r-- | lisp/net/net-utils.el | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el index f295803ff50..9fe105d4641 100644 --- a/lisp/net/net-utils.el +++ b/lisp/net/net-utils.el @@ -1,7 +1,7 @@ ;;; net-utils.el --- network functions -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, +;; 2007, 2008, 2009 Free Software Foundation, Inc. ;; Author: Peter Breton <pbreton@cs.umb.edu> ;; Created: Sun Mar 16 1997 @@ -372,28 +372,28 @@ This variable is only used if the variable (display-buffer buffer-name)) ;;;###autoload -(defun ifconfig () - "Run ifconfig and display diagnostic output." - (interactive) - (net-utils-run-simple - (format "*%s*" ifconfig-program) - ifconfig-program +(defun ifconfig () + "Run ifconfig and display diagnostic output." + (interactive) + (net-utils-run-simple + (format "*%s*" ifconfig-program) + ifconfig-program ifconfig-program-options)) (defalias 'ipconfig 'ifconfig) ;;;###autoload -(defun iwconfig () - "Run iwconfig and display diagnostic output." - (interactive) - (net-utils-run-simple - (format "*%s*" iwconfig-program) - iwconfig-program +(defun iwconfig () + "Run iwconfig and display diagnostic output." + (interactive) + (net-utils-run-simple + (format "*%s*" iwconfig-program) + iwconfig-program iwconfig-program-options)) ;;;###autoload (defun netstat () - "Run netstat and display diagnostic output." + "Run netstat and display diagnostic output." (interactive) (net-utils-run-simple (format "*%s*" netstat-program) @@ -402,7 +402,7 @@ This variable is only used if the variable ;;;###autoload (defun arp () - "Run arp and display diagnostic output." + "Run arp and display diagnostic output." (interactive) (net-utils-run-simple (format "*%s*" arp-program) @@ -484,7 +484,7 @@ If your system's ping continues until interrupted, you can try setting (defun nslookup () "Run nslookup program." (interactive) - (comint-run nslookup-program) + (switch-to-buffer (make-comint "nslookup" nslookup-program)) (nslookup-mode)) (defvar comint-prompt-regexp) |