Mercurial > emacs

comparison lisp/net/net-utils.el @ 62316:2a4f6c0559af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dig): Use with-no-warnings.
author Richard M. Stallman <rms@gnu.org>
date Sat, 14 May 2005 11:28:14 +0000
parents cff214e628c2
children df55e63482c4
comparison
equal deleted inserted replaced
62315:c37dfc8054d6 62316:2a4f6c0559af
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)