From f7a7738f798228ce85b5fe3bd0aa13465f870805 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 22 May 1998 23:54:21 +0000
Subject: [PATCH] (uncompress-while-visiting): Leave point at beginning.

---
 lisp/uncompress.el | 1 +
 1 file changed, 1 insertion(+)

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)
-- 
2.39.2