Function: jka-compr-byte-compiler-base-file-name

jka-compr-byte-compiler-base-file-name is a byte-compiled function defined in jka-compr.el.gz.

Signature

(jka-compr-byte-compiler-base-file-name FILE)

Source Code

;; Defined in /usr/src/emacs/lisp/jka-compr.el.gz
(defun jka-compr-byte-compiler-base-file-name (file)
  (let ((info (jka-compr-get-compression-info file)))
    (if (and info (jka-compr-info-strip-extension info))
	(save-match-data
	  (substring file 0 (string-match (jka-compr-info-regexp info) file)))
      file)))