Mercurial > emacs

comparison lisp/net/net-utils.el @ 90182:f042e7c0fe20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-53 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 302-319) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 69) - Update from CVS
author Miles Bader <miles@gnu.org>
date Fri, 20 May 2005 04:22:05 +0000
parents 08185296b491 df55e63482c4
children f9a65d7ebd29
comparison
equal deleted inserted replaced
90181:0c828e2b0b6f 90182:f042e7c0fe20
1 ;;; net-utils.el --- network functions 1 ;;; net-utils.el --- network functions
2 2
3 ;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2005 Free Software Foundation, Inc.
4 4
5 ;; Author: Peter Breton <pbreton@cs.umb.edu> 5 ;; Author: Peter Breton <pbreton@cs.umb.edu>
6 ;; Created: Sun Mar 16 1997 6 ;; Created: Sun Mar 16 1997
7 ;; Keywords: network comm 7 ;; Keywords: network comm
8 8
466 (list 466 (list
467 (progn 467 (progn
468 (require 'ffap) 468 (require 'ffap)
469 (read-from-minibuffer 469 (read-from-minibuffer
470 "Lookup host: " 470 "Lookup host: "
471 (or (ffap-string-at-point 'machine) ""))))) 471 (with-no-warnings
472 (or (ffap-string-at-point 'machine) ""))))))
472 (net-utils-run-program 473 (net-utils-run-program
473 "Dig" 474 "Dig"
474 (concat "** " 475 (concat "** "
475 (mapconcat 'identity 476 (mapconcat 'identity
476 (list "Dig" host dig-program) 477 (list "Dig" host dig-program)