Commit f7a7738f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 6e9aac74
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment