procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(whois-get-tld): Rewrite not to use `do'.

Browse source
This commit is contained in:
Richard M. Stallman 1998-10-21 18:09:39 +00:00
parent b054090e74
commit 3d0ee5e6c9
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/net-utils.el
View file

@ -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