andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Set find-file-not-found-functions', not find-file-not-found-hooks'; use

Browse source 
`add-hook'.
(uncompress-while-visiting): Set `write-file-functions', not `write-file-hooks';
use `add-hook'.
This commit is contained in:
Juanma Barranquero 2005-05-09 00:34:58 +00:00
parent a4e03fe5e2
commit b6ad7253d2
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/obsolete/uncompress.el
View file

@ -83,14 +83,10 @@ It then selects a major mode from the uncompressed file name and contents."
(goto-char (point-min))
(message "Uncompressing...done")
(set-buffer-modified-p nil)
(make-local-variable 'write-file-hooks)
(or (memq 'uncompress-backup-file write-file-hooks)
(setq write-file-hooks (cons 'uncompress-backup-file write-file-hooks)))
(add-hook 'write-file-functions 'uncompress-backup-file nil t)
(normal-mode))
(or (memq 'find-compressed-version find-file-not-found-hooks)
(setq find-file-not-found-hooks
(cons 'find-compressed-version find-file-not-found-hooks)))
(add-hook 'find-file-not-found-functions 'find-compressed-version)
(defun find-compressed-version ()
"Hook to read and uncompress the compressed version of a file."