Function: url-file-host-is-local-p

url-file-host-is-local-p is a byte-compiled function defined in url-file.el.gz.

Signature

(url-file-host-is-local-p HOST)

Documentation

Return t if HOST references our local machine.

Source Code

;; Defined in /usr/src/emacs/lisp/url/url-file.el.gz
(defun url-file-host-is-local-p (host)
  "Return t if HOST references our local machine."
  (let ((case-fold-search t))
    (or
     (null host)
     (string= "" host)
     (equal (downcase host) (downcase (system-name)))
     (and (string-match "^localhost$" host) t)
     (and (not (string-match (regexp-quote ".") host))
	  (equal (downcase host) (if (string-match (regexp-quote ".")
						   (system-name))
				     (substring (system-name) 0
						(match-beginning 0))
				   (system-name)))))))