# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 895881261 0
# Node ID e6a21f2c62f9b5c1eedc4925653672835e92e026
# Parent  bf83c23f330046a1a6e9e7bf90cd49d64164c301
(uncompress-while-visiting): Leave point at beginning.

diff -r bf83c23f3300 -r e6a21f2c62f9 lisp/uncompress.el
--- a/lisp/uncompress.el	Fri May 22 23:36:06 1998 +0000
+++ b/lisp/uncompress.el	Fri May 22 23:54:21 1998 +0000
@@ -74,6 +74,7 @@
   (message "Uncompressing...")
   (let ((buffer-read-only nil))
     (shell-command-on-region (point-min) (point-max) uncompress-program t))
+  (goto-char (point-min))
   (message "Uncompressing...done")
   (set-buffer-modified-p nil)
   (make-local-variable 'write-file-hooks)