;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 3 21:55:06 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/uncompress.el ;;; emacs version 19.22.92.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/uncompress.el' was compiled for Emacs 19")) (defvar uncompress-program "gunzip" "\ Program to use for uncompression.") (byte-code "ÀÁÂ\"ˆÃÄ \"„Æ BÃÇ \"„È BÀ‡" [defalias uncompress-backup-file #[nil "ƒ ƒ\n„Ã!„Ä Æ‰‰%ˆÆ‡" [buffer-file-name make-backup-files buffer-backed-up file-exists-p call-process uncompress-program nil] 6] assoc "\\.Z$" auto-mode-alist ("\\.Z$" . uncompress-while-visiting) "\\.gz$" ("\\.gz$" . uncompress-while-visiting)] 3) (defalias 'uncompress-while-visiting #[nil "ƒÁÂ\"ƒÃĉ”O!ˆ‚)ƒ)ÁÅ\"ƒ)Ãĉ”O!ˆÆÇ!ˆÈ Êed Ì$ˆ)ÆÍ!ˆÎÈ!ˆÏÐ!ˆÑ>„RÑBÒ ‡" [buffer-file-name string-match "\\.Z$" set-visited-file-name 0 "\\.gz$" message "Uncompressing..." nil buffer-read-only shell-command-on-region uncompress-program 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 and .gz files, to uncompress them. 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) (defalias 'find-compressed-version #[nil "À ÄP‰!ƒ ‚ ÅP‰!ƒ  =…/Æ Ç\"ˆebˆÀÇ)‡" [nil name file-exists-p buffer-file-name ".Z" ".gz" insert-file-contents t error] 3 "\ Hook to read and uncompress the compressed version of a file."]) (provide (quote uncompress))