;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:49:12 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/obsolete/uncompress.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (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" (#$ . 631)) (defalias 'uncompress-backup-file #[nil "\203 \203\n\204\304!\204\305 \306\211\211%\210\306\207" [buffer-file-name make-backup-files buffer-backed-up uncompress-program file-exists-p call-process nil] 6]) (byte-code "\301\302\"\204 \303B\301\304\"\204\305B\301\306\"\204!\307B\301\207" [auto-mode-alist assoc "\\.Z$" ("\\.Z$" . uncompress-while-visiting) "\\.gz$" ("\\.gz$" . uncompress-while-visiting) "\\.tgz$" ("\\.tgz$" . 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 "\203\306\307\"\203\310\311\211\224O!\210\202A\203,\306\312\"\203,\310\311\211\224O!\210\202A\203A\306\313\"\203A\310\311\211\224O\314P!\210\315\316!\210\317\320\321\322\323#@\324ed\f\323$\210+eb\210\315\325!\210\326\317!\210\327\305!\210\330 >\204q\330 B\331 \207" [buffer-file-name coding-system-for-read coding-system-for-write buffer-read-only uncompress-program write-file-hooks string-match "\\.Z$" set-visited-file-name 0 "\\.gz$" "\\.tgz$" ".tar" message "Uncompressing..." nil no-conversion find-operation-coding-system insert-file-contents t shell-command-on-region "Uncompressing...done" set-buffer-modified-p make-local-variable uncompress-backup-file normal-mode] 6 (#$ . 1201)]) (byte-code "\301>\204\n\301B\301\207" [find-file-not-found-hooks find-compressed-version] 2) #@63 Hook to read and uncompress the compressed version of a file. (defalias 'find-compressed-version #[nil "\302\303 \304P\211!\203\202\303 \305P\211!\203 =\205,\306 \307\"\210eb\210\307)\207" [name buffer-file-name nil file-exists-p ".Z" ".gz" insert-file-contents t] 3 (#$ . 2210)]) (provide 'uncompress)