aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/url/url-util.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/url/url-util.el b/lisp/url/url-util.el
index 9bfbca65d9a..ffae984941e 100644
--- a/lisp/url/url-util.el
+++ b/lisp/url/url-util.el
@@ -632,8 +632,11 @@ Creates FILE and its parent directories if they do not exist."
632 632
633;;;###autoload 633;;;###autoload
634(defun url-domain (url) 634(defun url-domain (url)
635 "Return the domain of the host of the url. 635 "Return the domain of the host of the URL.
636Return nil if this can't be determined." 636Return nil if this can't be determined.
637
638For instance, this function will return \"fsf.co.uk\" if the host in URL
639is \"www.fsf.co.uk\"."
637 (let* ((host (puny-encode-domain (url-host url))) 640 (let* ((host (puny-encode-domain (url-host url)))
638 (parts (nreverse (split-string host "\\."))) 641 (parts (nreverse (split-string host "\\.")))
639 (candidate (pop parts)) 642 (candidate (pop parts))