From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 22 May 1998 23:54:21 +0000 (+0000)
Subject: (uncompress-while-visiting): Leave point at beginning.
X-Git-Tag: emacs-20.3~884
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7a7738f798228ce85b5fe3bd0aa13465f870805;p=emacs.git

(uncompress-while-visiting): Leave point at beginning.
---

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