From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 23 Oct 1997 07:00:59 +0000 (+0000)
Subject: (jka-compr-inhibit): New variable.
X-Git-Tag: emacs-20.3~2941
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9fdf055b7adecd2d9bc53f6e123e6026352b8b05;p=emacs.git

(jka-compr-inhibit): New variable.
(jka-compr-handler): Obey jka-compr-inhibit.
---

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)))))