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 | 3068998dc3983c6eb64ddfcfbbf1fc71388865ee (patch) | |
| tree | 02102cdcdba2ad3edbfd8a0953739a74d68ce21c /lisp/jka-compr.el | |
| parent | 75d13c6481ab5197c98b6e1d1c9e50e89be3f211 (diff) | |
| download | emacs-3068998dc3983c6eb64ddfcfbbf1fc71388865ee.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 |