From 3068998dc3983c6eb64ddfcfbbf1fc71388865ee Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 22 Aug 1995 16:46:45 +0000 Subject: [PATCH] (jka-compr-byte-compiler-base-file-name): New function. Use it to handle byte-compiler-base-file-name operation. --- lisp/jka-compr.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index d8fd49e8da5..2b1f435fe6c 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -633,11 +633,20 @@ There should be no more than seven characters after the final `/'") (jka-compr-delete-temp-file local-copy)) t)) + +(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))) (put 'write-region 'jka-compr 'jka-compr-write-region) (put 'insert-file-contents 'jka-compr 'jka-compr-insert-file-contents) (put 'file-local-copy 'jka-compr 'jka-compr-file-local-copy) (put 'load 'jka-compr 'jka-compr-load) +(put 'byte-compiler-base-file-name 'jka-compr + 'jka-compr-byte-compiler-base-file-name) (defun jka-compr-handler (operation &rest args) (save-match-data -- 2.39.2