Return to uncompress.el CVS log

Up to [Apple XNU] / GNUtools / emacs / lisp

Annotation of GNUtools/emacs/lisp/uncompress.el, revision 1.1.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:   (let ((buffer-read-only nil))
                     10:     (shell-command-on-region (point-min) (point-max) "uncompress" t))
                     11:   (message "Uncompressing...done")
                     12:   (set-buffer-modified-p nil)
                     13:   (normal-mode))
                     14: 
                     15: (setq auto-mode-alist
                     16:       (cons '("\\.Z$" . uncompress-while-visiting) auto-mode-alist))
                     17: 
                     18: (defun find-compressed-version ()
                     19:   "Hook to read and uncompress the compressed version of a file."
                     20:   ;; Just pretend we had visited the compressed file,
                     21:   ;; and uncompress-while-visiting will do the rest.
                     22:   (if (file-exists-p (concat buffer-file-name ".Z"))
                     23:       (progn
                     24:        (setq buffer-file-name (concat buffer-file-name ".Z"))
                     25:        (insert-file-contents buffer-file-name t)
                     26:        (goto-char (point-min))
                     27:        (setq error nil)
                     28:        t)))
                     29: 
                     30: (setq find-file-not-found-hooks
                     31:       (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.