From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 28 May 2003 11:19:48 +0000 (+0000)
Subject: (forms-mode): Use write-file-functions instead of local-write-file-hooks.
X-Git-Tag: ttn-vms-21-2-B4~9902
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c2fe6e7a073483a643ef946c9b44b0504736cc53;p=emacs.git

(forms-mode): Use write-file-functions instead of local-write-file-hooks.
Use make-local-variable to make it local.
---

diff --git a/lisp/forms.el b/lisp/forms.el
index a81d137811f..24133d22257 100644
--- a/lisp/forms.el
+++ b/lisp/forms.el
@@ -286,7 +286,7 @@
 ;; forms mode functions next/prev record and first/last
 ;; record.
 ;;
-;; `local-write-file-hooks' is defined to save the actual data file
+;; `write-file-functions' is defined to save the actual data file
 ;; instead of the buffer data, `revert-file-hook' is defined to
 ;; revert a forms to original.
 
@@ -301,10 +301,10 @@
 (provide 'forms)			;;; official
 (provide 'forms-mode)			;;; for compatibility
 
-(defconst forms-version (substring "$Revision: 2.45 $" 11 -2)
+(defconst forms-version (substring "$Revision: 2.46 $" 11 -2)
   "The version number of forms-mode (as string).  The complete RCS id is:
 
-  $Id: forms.el,v 2.45 2003/02/04 11:21:12 lektu Exp $")
+  $Id: forms.el,v 2.46 2003/05/23 12:48:06 rms Exp $")
 
 (defcustom forms-mode-hooks nil
   "Hook run upon entering Forms mode."
@@ -656,13 +656,13 @@ Commands:                        Equivalent keys in read-only mode:
 	    (if (not file-modified) (set-buffer-modified-p nil)))
 	  (if write-file-filter
 	      (progn
-		(make-variable-buffer-local 'local-write-file-hooks)
-		(setq local-write-file-hooks (list write-file-filter)))))
+		(make-local-variable 'write-file-functions)
+		(setq write-file-functions (list write-file-filter)))))
       (if write-file-filter
 	  (save-excursion
 	    (set-buffer forms--file-buffer)
-	    (make-variable-buffer-local 'local-write-file-hooks)
-	    (setq local-write-file-hooks (list write-file-filter))))))
+	    (make-local-variable 'write-file-functions)
+	    (setq write-file-functions (list write-file-filter))))))
 
   ;; count the number of records, and set see if it may be modified
   (let (ro)