Function: ffap-fixup-machine

ffap-fixup-machine is a byte-compiled function defined in ffap.el.gz.

Signature

(ffap-fixup-machine MACH)

Source Code

;; Defined in /usr/src/emacs/lisp/ffap.el.gz
(defun ffap-fixup-machine (mach)
  ;; Convert a hostname into an url, an ftp file name, or nil.
  (cond
   ((not (and ffap-url-regexp (stringp mach))) nil)
   ;; gopher.well.com
   ((string-match "\\`gopher[-.]" mach)	; or "info"?
    (concat "gopher://" mach "/"))
   ;; www.ncsa.uiuc.edu
   ((and (string-match "\\`w\\(ww\\|eb\\)[-.]" mach))
    (concat "https://" mach "/"))
   ;; More cases?
   (ffap-ftp-regexp (ffap-host-to-filename mach))
   ))