diff lisp/jka-compr.el @ 11621:710b5ce824c2

(jka-compr-insert-file-contents): When visiting, bind buffer-file-name to nil temporarily.

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