diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-05-09 00:34:58 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-05-09 00:34:58 +0000 |
| commit | b6ad7253d24afd99678fd4aaea7c373f7ba8a5f8 (patch) | |
| tree | 0a32e4d41e55ba2cc0b05207232943e0879cc97b /lisp/obsolete/uncompress.el | |
| parent | a4e03fe5e29a8af2e06ce65ecb5dd460cbd594bf (diff) | |
| download | emacs-b6ad7253d24afd99678fd4aaea7c373f7ba8a5f8.tar.gz | |
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'.
Diffstat (limited to 'lisp/obsolete/uncompress.el')
| -rw-r--r-- | lisp/obsolete/uncompress.el | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lisp/obsolete/uncompress.el b/lisp/obsolete/uncompress.el index ac567be67b0..28ad5f06c7b 100644 --- a/lisp/obsolete/uncompress.el +++ b/lisp/obsolete/uncompress.el @@ -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." |