(find-compressed-version): Don't set `error' here.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/uncompress.el b/lisp/uncompress.el
index d809f81bd79..ceaa0dac1ba 100644
--- a/lisp/uncompress.el
+++ b/lisp/uncompress.el
@@ -99,7 +99,9 @@ It then selects a major mode from the uncompressed file name and contents."
         (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)