home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / packages / uncompre.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  1.5 KB  |  20 lines
  1. ;;; compiled by jwz@thalidomide on Sat Jan 16 01:47:35 1993
  2. ;;; from file /cadillac-th/jwz/emacs19/lisp/packages/uncompress.el
  3. ;;; emacs version 19.4.1 Lucid.
  4. ;;; bytecomp version 2.09; 12-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (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)
  14. (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 "\
  15. Temporary \"major mode\" used for .Z files, to uncompress the contents.
  16. It then selects a major mode from the uncompressed file name and contents."])
  17. (byte-code "└    >¼ä└    B└ç" [find-compressed-version find-file-not-found-hooks] 2)
  18. (fset 'find-compressed-version #[nil "└    ┬P!¡É    ┬P├    ─\"êebê┼─ç" [file-exists-p buffer-file-name ".Z" insert-file-contents t nil error] 3 "\
  19. Hook to read and uncompress the compressed version of a file."])
  20.