From 3d0ee5e6c9ad3bddea0a5baa1679868ea0f7bf62 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 21 Oct 1998 18:09:39 +0000 Subject: [PATCH] (whois-get-tld): Rewrite not to use `do'. --- lisp/net-utils.el | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/lisp/net-utils.el b/lisp/net-utils.el index 111d20f0239..48698db99bf 100644 --- a/lisp/net-utils.el +++ b/lisp/net-utils.el @@ -626,13 +626,15 @@ then the server named by whois-server-name is used." :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 -- 2.39.2