Return to uncompress.el CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / lisp

Annotation of 43BSDReno/contrib/emacs-18.55/lisp/uncompress.el, revision 1.1

1.1     ! root        1: (defun uncompress-while-visiting ()
        !             2:   "Temporary \"major mode\" used for .Z files, to uncompress the contents.
        !             3: It then selects a major mode from the uncompressed file name and contents."
        !             4:   (if (and (not (null buffer-file-name))
        !             5:           (string-match "\\.Z$" buffer-file-name))
        !             6:       (set-visited-file-name
        !             7:        (substring buffer-file-name 0 (match-beginning 0))))
        !             8:   (message "Uncompressing...")
        !             9:   (shell-command-on-region (point-min) (point-max) "uncompress" t)
        !            10:   (message "Uncompressing...done")
        !            11:   (set-buffer-modified-p nil)
        !            12:   (normal-mode))
        !            13: 
        !            14: (setq auto-mode-alist
        !            15:       (cons '("\\.Z$" . uncompress-while-visiting) auto-mode-alist))
        !            16: 
        !            17: (defun find-compressed-version ()
        !            18:   "Hook to read and uncompress the compressed version of a file."
        !            19:   ;; Just pretend we had visited the compressed file,
        !            20:   ;; and uncompress-while-visiting will do the rest.
        !            21:   (if (file-exists-p (concat buffer-file-name ".Z"))
        !            22:       (progn
        !            23:        (setq buffer-file-name (concat buffer-file-name ".Z"))
        !            24:        (insert-file-contents buffer-file-name t)
        !            25:        (goto-char (point-min))
        !            26:        (setq error nil)
        !            27:        t)))
        !            28: 
        !            29: (setq find-file-not-found-hooks
        !            30:       (cons 'find-compressed-version find-file-not-found-hooks))

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.