Mercurial > emacs
changeset 20132:b691f68b0757
(jka-compr-inhibit): New variable.
(jka-compr-handler): Obey jka-compr-inhibit.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 23 Oct 1997 07:00:59 +0000 |
| parents | 33fbdbaf65c2 |
| children | a02088b980e3 |
| files | lisp/jka-compr.el |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/jka-compr.el Thu Oct 23 06:53:36 1997 +0000 +++ b/lisp/jka-compr.el Thu Oct 23 07:00:59 1997 +0000 @@ -716,10 +716,15 @@ (put 'byte-compiler-base-file-name 'jka-compr 'jka-compr-byte-compiler-base-file-name) +(defvar jka-compr-inhibit nil + "Non-nil means inhibit automatic uncompression temporarily. +Lisp programs can bind this to t to do that. +It is not recommended to set this variable permanently to anything but nil.") + (defun jka-compr-handler (operation &rest args) (save-match-data (let ((jka-op (get operation 'jka-compr))) - (if jka-op + (if (and jka-op (not jka-compr-inhibit)) (apply jka-op args) (jka-compr-run-real-handler operation args)))))