Function: webjump-url-fix

webjump-url-fix is a byte-compiled function defined in webjump.el.gz.

Signature

(webjump-url-fix URL)

Source Code

;; Defined in /usr/src/emacs/lisp/net/webjump.el.gz
(defun webjump-url-fix (url)
  (if (webjump-null-or-blank-string-p url)
      ""
    (webjump-url-fix-trailing-slash
     (cond
      ((string-match "^[a-zA-Z]+:" url) url)
      ((string-match "^/" url) (concat "file://" url))
      ((string-match "^\\([^\\./]+\\)" url)
       ;; FIXME: ftp.gnu.org and many others now prefer HTTPS instead
       ;;        of FTP.  Does this heuristic make sense these days?
       (concat (if (string= (downcase (match-string 1 url)) "ftp")
		   "ftp"
                 "https")
	       "://"
	       url))
      (t url)))))