Mercurial > emacs
changeset 62189:0cbd8db584f6
Set `find-file-not-found-functions', not `find-file-not-found-hooks'; use
`add-hook'.
(uncompress-while-visiting): Set `write-file-functions', not `write-file-hooks';
use `add-hook'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 09 May 2005 00:34:58 +0000 |
| parents | a89a98d0bb8c |
| children | 77d48ce87d57 |
| files | lisp/obsolete/uncompress.el |
| diffstat | 1 files changed, 2 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/obsolete/uncompress.el Sun May 08 23:40:34 2005 +0000 +++ b/lisp/obsolete/uncompress.el Mon May 09 00:34:58 2005 +0000 @@ -83,14 +83,10 @@ (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."