;ELC ;;; compiled by erik@naggum.no on Sun Jan 14 07:06:46 1996 ;;; from file /gd/gnu/emacs/19.0/lisp/uncompress.el ;;; emacs version 19.30.70.6. ;;; 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.29"))) (error "`uncompress.el' was compiled for Emacs 19.29 or later")) #@35 Program to use for uncompression. (defvar uncompress-program "gunzip" (#$ . 470)) (defalias 'uncompress-backup-file #[nil "ƒ ƒ\n„Ã!„Ä Æ‰‰%ˆÆ‡" [buffer-file-name make-backup-files buffer-backed-up file-exists-p call-process uncompress-program nil] 6]) (byte-code "ÀÁ\n\"„ Ã\nBÀÄ\n\"„Å\nBÀ‡" [assoc "\\.Z$" auto-mode-alist ("\\.Z$" . uncompress-while-visiting) "\\.gz$" ("\\.gz$" . uncompress-while-visiting)] 3) #@146 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. (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 (#$ . 904)]) (byte-code "À >„\nÀ BÀ‡" [find-compressed-version find-file-not-found-hooks] 2) #@63 Hook to read and uncompress the compressed version of a file. (defalias 'find-compressed-version #[nil "À ÄP‰!ƒ ‚ ÅP‰!ƒ  =…/Æ Ç\"ˆebˆÀÇ)‡" [nil name file-exists-p buffer-file-name ".Z" ".gz" insert-file-contents t error] 3 (#$ . 1568)]) (provide (quote uncompress))