# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 908993379 0
# Node ID ccedc9675dab9d9064328a29de0187db9b115951
# Parent  3bb7a66a51a878e2e098bc55dd28a25235c2aa24
(whois-get-tld): Rewrite not to use `do'.

diff -r 3bb7a66a51a8 -r ccedc9675dab lisp/net-utils.el
--- a/lisp/net-utils.el	Wed Oct 21 18:08:17 1998 +0000
+++ b/lisp/net-utils.el	Wed Oct 21 18:09:39 1998 +0000
@@ -626,13 +626,15 @@
   :group 'net-utils
   :type 'boolean)
 
-
 (defun whois-get-tld (host)
-  (do ((i (1- (length host)) (1- i))
-       (max-len (- (length host) 4)))
-      ((or (= i max-len) (char-equal (aref host i) ?.))
-       (if (= i max-len) nil
-	 (substring host (1+ i))))))
+  "Return the top level domain of `host', or nil if it isn't a domain name."
+  (let ((i (1- (length host)))
+	(max-len (- (length host) 5)))
+    (while (not (or (= i max-len) (char-equal (aref host i) ?.)))
+      (setq i (1- i)))
+    (if (= i max-len)
+	nil
+      (substring host (1+ i)))))
 
 ;; Whois protocol
 ;;;###autoload