From: Glenn Morris <rgm@gnu.org>
Date: Tue, 1 Sep 2009 03:14:20 +0000 (+0000)
Subject: (nslookup): Use make-comint rather than comint-run.
X-Git-Tag: emacs-pretest-23.1.90~1547
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a2e01f7e5e0c1fc313d3245e262591b8b8f10cc1;p=emacs.git

(nslookup): Use make-comint rather than comint-run.
---

diff --git a/lisp/net/net-utils.el b/lisp/net/net-utils.el
index f295803ff50..2e83bc6c8a2 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
@@ -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)