/[emacs]/emacs/lisp/obsolete/uncompress.el
ViewVC logotype

Diff of /emacs/lisp/obsolete/uncompress.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by miles, Mon Sep 1 15:45:33 2003 UTC revision 1.4 by lektu, Mon May 9 00:34:58 2005 UTC
# Line 83  It then selects a major mode from the un Line 83  It then selects a major mode from the un
83    (goto-char (point-min))    (goto-char (point-min))
84    (message "Uncompressing...done")    (message "Uncompressing...done")
85    (set-buffer-modified-p nil)    (set-buffer-modified-p nil)
86    (make-local-variable 'write-file-hooks)    (add-hook 'write-file-functions 'uncompress-backup-file nil t)
   (or (memq 'uncompress-backup-file write-file-hooks)  
       (setq write-file-hooks (cons 'uncompress-backup-file write-file-hooks)))  
87    (normal-mode))    (normal-mode))
88    
89  (or (memq 'find-compressed-version find-file-not-found-hooks)  (add-hook 'find-file-not-found-functions 'find-compressed-version)
     (setq find-file-not-found-hooks  
           (cons 'find-compressed-version find-file-not-found-hooks)))  
90    
91  (defun find-compressed-version ()  (defun find-compressed-version ()
92    "Hook to read and uncompress the compressed version of a file."    "Hook to read and uncompress the compressed version of a file."

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26