diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-08-22 16:46:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-08-22 16:46:45 +0000 |
| commit | 73660b8064f674a584064c4bc950534b263e865c (patch) | |
| tree | b6a1a83804e39bec38e4c977a05adfc4454d9f11 /lisp/jka-compr.el | |
| parent | 27b0e53004e46ebd954e7bf5a38f6a521749318d (diff) | |
| download | emacs-73660b8064f674a584064c4bc950534b263e865c.tar.gz | |
(jka-compr-byte-compiler-base-file-name): New function.
Use it to handle byte-compiler-base-file-name operation.
Diffstat (limited to 'lisp/jka-compr.el')
| -rw-r--r-- | lisp/jka-compr.el | 9 |
1 files changed, 9 insertions, 0 deletions
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 |