From: Andreas Schwab <schwab@suse.de>
Date: Thu, 25 Dec 2003 11:06:14 +0000 (+0000)
Subject: (jka-compr-insert-file-contents): Avoid error when
X-Git-Tag: ttn-vms-21-2-B4~8162
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8290faa335bcb23063c9ee355ccfa1b6def202c6;p=emacs.git

(jka-compr-insert-file-contents): Avoid error when
file not found.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5c667e0b353..a865e943a11 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-12-25  Andreas Schwab  <schwab@suse.de>
+
+	* jka-compr.el (jka-compr-insert-file-contents): Avoid error when
+	file not found.
+
 2003-12-08  Miles Bader  <miles@gnu.org>
 
 	* dired.el (dired-between-files): Always use dired-move-to-filename,
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index dd56c9c0f31..aae0f0f85c1 100644
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -590,10 +590,11 @@ There should be no more than seven characters after the final `/'."
 	     (file-exists-p local-copy)
 	     (delete-file local-copy)))
 
-	  (decode-coding-inserted-region
-	   (point) (+ (point) size)
-	   (jka-compr-byte-compiler-base-file-name file)
-	   visit beg end replace)
+	  (unless notfound
+	    (decode-coding-inserted-region
+	     (point) (+ (point) size)
+	     (jka-compr-byte-compiler-base-file-name file)
+	     visit beg end replace))
 
 	  (and
 	   visit