# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 799183519 0
# Node ID 710b5ce824c2f80c9ce425459f0ebbce45f58252
# Parent  5e836a7d213dfb6b4abcf6e38d908321e2829787
(jka-compr-insert-file-contents): When visiting,
bind buffer-file-name to nil temporarily.

diff -r 5e836a7d213d -r 710b5ce824c2 lisp/jka-compr.el
--- a/lisp/jka-compr.el	Sat Apr 29 16:49:41 1995 +0000
+++ b/lisp/jka-compr.el	Sat Apr 29 19:25:19 1995 +0000
@@ -502,13 +502,18 @@
 							(if (and beg end)
 							    (- end beg)
 							  end))
-			(jka-compr-call-process uncompress-program
-						(concat uncompress-message
-							" " base-name)
-						local-file
-						t
-						nil
-						uncompress-args))
+			;; If visiting, bind off buffer-file-name so that
+			;; file-locking will not ask whether we should
+			;; really edit the buffer.
+			(let ((buffer-file-name
+			       (if visit nil buffer-file-name)))
+			  (jka-compr-call-process uncompress-program
+						  (concat uncompress-message
+							  " " base-name)
+						  local-file
+						  t
+						  nil
+						  uncompress-args)))
 		      (setq size (- (point) start))
 		      (if replace
 			  (let* ((del-beg (point))