;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Tue Jul 6 00:12:50 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/uncompress.el ;;; emacs version 19.15.16. ;;; 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 "This file was compiled for Emacs 19")) (byte-code "ÀÁÂ\"ˆÃÄ \"„Æ BÀ‡" [defalias 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) (defalias 'uncompress-while-visiting #[nil "ƒÁÂ\"ƒÃĉ”O!ˆÅÆ!ˆÇÉedÊË$ˆ)ÅÌ!ˆÍÇ!ˆÎÏ!ˆÐ>„;ÐBÑ ‡" [buffer-file-name string-match "\\.Z$" set-visited-file-name 0 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) (defalias '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))