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

diff --git a/lisp/uncompress.el b/lisp/uncompress.el
index d809f81bd7988f55dd9540feeccaa2e0a5dea81b..ceaa0dac1bac3e91ecb6d33e393b1c0f2067a6fe 100644 (file)
--- 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)