From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 29 Apr 1995 19:25:19 +0000 (+0000)
Subject: (jka-compr-insert-file-contents): When visiting,
X-Git-Tag: emacs-19.34~4237
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ae849784b436145eccbde502c152720b9164788e;p=emacs.git

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

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 5c139c865dd..e5975037ffe 100644
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -502,13 +502,18 @@ There should be no more than seven characters after the final `/'")
 							(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))