# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 896028425 0
# Node ID f741b3e11e37b56c128534701a10469df6a9fd5b
# Parent  571020b7fc5e2349d81a0a71908546e566795e39
(find-compressed-version): Don't set `error' here.

diff -r 571020b7fc5e -r f741b3e11e37 lisp/uncompress.el
--- a/lisp/uncompress.el	Sun May 24 07:30:16 1998 +0000
+++ b/lisp/uncompress.el	Sun May 24 16:47:05 1998 +0000
@@ -99,7 +99,9 @@
 	(progn
 	  (insert-file-contents buffer-file-name t)
 	  (goto-char (point-min))
-	  (setq error nil)
+	  ;; No need for this, because error won't be set to t
+	  ;; if this function returns t.
+	  ;; (setq error nil)
 	  t))))
 
 (provide 'uncompress)