Function: ffap-file-suffix

ffap-file-suffix is a byte-compiled function defined in ffap.el.gz.

Signature

(ffap-file-suffix FILE)

Documentation

Return trailing .foo suffix of FILE, or nil if none.

Source Code

;; Defined in /usr/src/emacs/lisp/ffap.el.gz
;; (ffap-replace-file-component "/who@foo.com:/whatever" "/new")

(defun ffap-file-suffix (file)
  "Return trailing `.foo' suffix of FILE, or nil if none."
  (let ((pos (string-match "\\.[^./]*\\'" file)))
    (and pos (substring file pos nil))))