X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fdig.el;h=d719c381edbc814fad44d8c9375826bba4513de9;hb=9b741e050b400987d68ff761c6cc3276c932839c;hp=18019e9a8754b7e50b086085609390579c247588;hpb=2cc5659442ce551b395b9aeebe213947e415ac6d;p=elisp%2Fgnus.git-

diff --git a/lisp/dig.el b/lisp/dig.el
index 18019e9..d719c38 100644
--- a/lisp/dig.el
+++ b/lisp/dig.el
@@ -1,5 +1,5 @@
 ;;; dig.el --- Domain Name System dig interface
-;; Copyright (c) 2000 Free Software Foundation, Inc.
+;; Copyright (c) 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author: Simon Josefsson <simon@josefsson.org>
 ;; Keywords: DNS BIND dig
@@ -31,6 +31,10 @@
 ;; For use in elisp programs, call `dig-invoke' and use
 ;; `dig-extract-rr' to extract resource records.
 
+;;; Release history:
+
+;; 2000-10-28  posted on gnu.emacs.sources
+
 ;;; Code:
 
 (eval-when-compile (require 'cl))
@@ -58,9 +62,9 @@ If nil, use system defaults."
   "Default expressions to highlight in dig mode."
   :type 'sexp
   :group 'dig)
- 
+
 (defun dig-invoke (domain &optional
-			  query-type query-class query-option 
+			  query-type query-class query-option
 			  dig-option server)
   "Call dig with given arguments and return buffer containing output.
 DOMAIN is a string with a DNS domain. QUERY-TYPE is an optional string
@@ -89,7 +93,7 @@ Buffer should contain output generated by `dig-invoke'."
   (save-excursion
     (goto-char (point-min))
     (if (re-search-forward
-	 (concat domain "\\.?[\t ]+[0-9wWdDhHmMsS]+[\t ]+" 
+	 (concat domain "\\.?[\t ]+[0-9wWdDhHmMsS]+[\t ]+"
 		 (upcase (or class "IN")) "[\t ]+" (upcase (or type "A")))
 	 nil t)
 	(let (b e)
@@ -144,7 +148,7 @@ Buffer should contain output generated by `dig-invoke'."
 	 '(dig-font-lock-keywords t)))
   (when (featurep 'font-lock)
     (font-lock-set-defaults)))
-  
+
 (defun dig-exit ()
   "Quit dig output buffer."
   (interactive)
@@ -155,7 +159,7 @@ Buffer should contain output generated by `dig-invoke'."
   "Query addresses of a DOMAIN using dig, by calling `dig-invoke'.
 Optional arguments are passed to `dig-invoke'."
   (interactive "sHost: ")
-  (switch-to-buffer 
+  (switch-to-buffer
    (dig-invoke domain query-type query-class query-option dig-option server))
   (goto-char (point-min))
   (and (search-forward ";; ANSWER SECTION:" nil t)