# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1116070094 0
# Node ID 2a4f6c0559afdac2345c2fc16510d9026f0dd871
# Parent  c37dfc8054d687a543580cc667df775295cf125c
(dig): Use with-no-warnings.

diff -r c37dfc8054d6 -r 2a4f6c0559af lisp/net/net-utils.el
--- a/lisp/net/net-utils.el	Sat May 14 11:27:40 2005 +0000
+++ b/lisp/net/net-utils.el	Sat May 14 11:28:14 2005 +0000
@@ -468,7 +468,8 @@
       (require 'ffap)
       (read-from-minibuffer
        "Lookup host: "
-       (or (ffap-string-at-point 'machine) "")))))
+       (with-no-warnings
+	 (or (ffap-string-at-point 'machine) ""))))))
   (net-utils-run-program
    "Dig"
    (concat "** "