Mercurial > emacs
comparison lisp/jka-compr.el @ 12922:e171a85fd6b0
(jka-compr-byte-compiler-base-file-name): New function.
Use it to handle byte-compiler-base-file-name operation.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 22 Aug 1995 16:46:45 +0000 |
| parents | a285eaa710ac |
| children | fef2a9095f0c |
comparison
equal
deleted
inserted
replaced
| 12921:ed1abc9d781b | 12922:e171a85fd6b0 |
|---|---|
| 631 (message "Loading %s...done." file))) | 631 (message "Loading %s...done." file))) |
| 632 | 632 |
| 633 (jka-compr-delete-temp-file local-copy)) | 633 (jka-compr-delete-temp-file local-copy)) |
| 634 | 634 |
| 635 t)) | 635 t)) |
| 636 | |
| 637 (defun jka-compr-byte-compiler-base-file-name (file) | |
| 638 (let ((info (jka-compr-get-compression-info file))) | |
| 639 (if (and info (jka-compr-info-strip-extension info)) | |
| 640 (save-match-data | |
| 641 (substring file 0 (string-match (jka-compr-info-regexp info) file))) | |
| 642 file))) | |
| 636 | 643 |
| 637 (put 'write-region 'jka-compr 'jka-compr-write-region) | 644 (put 'write-region 'jka-compr 'jka-compr-write-region) |
| 638 (put 'insert-file-contents 'jka-compr 'jka-compr-insert-file-contents) | 645 (put 'insert-file-contents 'jka-compr 'jka-compr-insert-file-contents) |
| 639 (put 'file-local-copy 'jka-compr 'jka-compr-file-local-copy) | 646 (put 'file-local-copy 'jka-compr 'jka-compr-file-local-copy) |
| 640 (put 'load 'jka-compr 'jka-compr-load) | 647 (put 'load 'jka-compr 'jka-compr-load) |
| 648 (put 'byte-compiler-base-file-name 'jka-compr | |
| 649 'jka-compr-byte-compiler-base-file-name) | |
| 641 | 650 |
| 642 (defun jka-compr-handler (operation &rest args) | 651 (defun jka-compr-handler (operation &rest args) |
| 643 (save-match-data | 652 (save-match-data |
| 644 (let ((jka-op (get operation 'jka-compr))) | 653 (let ((jka-op (get operation 'jka-compr))) |
| 645 (if jka-op | 654 (if jka-op |