;ELC ;;; compiled by cthomp@willow on Thu Aug 12 00:43:57 1993 ;;; from file /era/era-0.80/editor/lisp/packages/uncompress.el ;;; emacs version 19.8 (beta8) Lucid. ;;; bytecomp version 2.15; 14-jul-93. ;;; 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 "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 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 " > 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."])