;;; compiled by jimb@geech.gnu.ai.mit.edu on Wed Mar 24 23:45:51 1993
;;; from file /gd/gnu/emacs/19.0/lisp/uncompress.el
;;; emacs version 19.0.508.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(byte-code "ÀÁMˆÂÃ\"„ ÅBÀ‡" [uncompress-backup-file #[nil "ƒ 	ƒ \n„ Ã!„ ÄÅÆ‰‰%ˆÆ‡" [buffer-file-name make-backup-files buffer-backed-up file-exists-p call-process "uncompress" nil] 6] assoc "\\.Z$" auto-mode-alist ("\\.Z$" . uncompress-while-visiting)] 3)
(fset 'uncompress-while-visiting #[nil "ƒ ÁÂ\"ƒ ÃÄÅÄ!O!ˆÆÇ!ˆÈ	ÊedËÌ$ˆ)ÆÍ!ˆÎÈ!ˆÏÐ!ˆÑ>„< ÑBÒ ‡" [buffer-file-name string-match "\\.Z$" set-visited-file-name 0 match-beginning message "Uncompressing..." nil buffer-read-only shell-command-on-region "uncompress" t "Uncompressing...done" set-buffer-modified-p make-local-variable write-file-hooks uncompress-backup-file normal-mode] 5 "\
Temporary \"major mode\" used for .Z files, to uncompress the contents.
It then selects a major mode from the uncompressed file name and contents."])
(byte-code "À	>„\n À	BÀ‡" [find-compressed-version find-file-not-found-hooks] 2)
(fset 'find-compressed-version #[nil "À	ÂP!… 	ÂPÃ	Ä\"ˆebˆÅÄ‡" [file-exists-p buffer-file-name ".Z" insert-file-contents t nil error] 3 "\
Hook to read and uncompress the compressed version of a file."])
(provide (quote uncompress))