diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-10-23 07:00:59 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-10-23 07:00:59 +0000 |
| commit | 9fdf055b7adecd2d9bc53f6e123e6026352b8b05 (patch) | |
| tree | 15eb3a7af2550ba28bedd6aaaa198bfe2b7f3e47 /lisp/jka-compr.el | |
| parent | 1c3430513b8f7c5dc00bd782fadeaa8c2e6cdb89 (diff) | |
| download | emacs-9fdf055b7adecd2d9bc53f6e123e6026352b8b05.tar.gz | |
(jka-compr-inhibit): New variable.
(jka-compr-handler): Obey jka-compr-inhibit.
Diffstat (limited to 'lisp/jka-compr.el')
| -rw-r--r-- | lisp/jka-compr.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el index 11aaecc04c8..58453869f92 100644 --- a/lisp/jka-compr.el +++ b/lisp/jka-compr.el @@ -716,10 +716,15 @@ There should be no more than seven characters after the final `/'." (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))))) |