From: Juanma Barranquero <lekktu@gmail.com>
Date: Mon, 9 May 2005 00:34:58 +0000 (+0000)
Subject: Set `find-file-not-found-functions', not `find-file-not-found-hooks'; use
X-Git-Tag: ttn-vms-21-2-B4~433
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b6ad7253d24afd99678fd4aaea7c373f7ba8a5f8;p=emacs.git

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'.
---

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."