From: Johan Vromans <jvromans@squirrel.nl>
Date: Sat, 8 Jul 1995 13:16:54 +0000 (+0000)
Subject: (forms-mode): treat local-write-file-hooks as a list.
X-Git-Tag: emacs-19.34~3351
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be3e4bb1b8e09b8240991b522c498b6ca3cf20b5;p=emacs.git

(forms-mode): treat local-write-file-hooks as a list.
---

diff --git a/lisp/forms.el b/lisp/forms.el
index 0bc656e9ed4..5f257671647 100644
--- a/lisp/forms.el
+++ b/lisp/forms.el
@@ -282,10 +282,10 @@
 (provide 'forms)			;;; official
 (provide 'forms-mode)			;;; for compatibility
 
-(defconst forms-version (substring "$Revision: 2.17 $" 11 -2)
+(defconst forms-version (substring "$Revision: 2.18 $" 11 -2)
   "The version number of forms-mode (as string).  The complete RCS id is:
 
-  $Id: forms.el,v 2.17 1995/06/17 13:00:22 rms Exp jvromans $")
+  $Id: forms.el,v 2.18 1995/06/18 14:43:23 jvromans Exp jvromans $")
 
 (defvar forms-mode-hooks nil
   "Hook functions to be run upon entering Forms mode.")
@@ -619,7 +619,7 @@ Commands:                        Equivalent keys in read-only mode:
 	  (save-excursion
 	    (set-buffer forms--file-buffer)
 	    (make-variable-buffer-local 'local-write-file-hooks)
-	    (setq local-write-file-hooks write-file-filter)))))
+	    (setq local-write-file-hooks (list write-file-filter))))))
 
   ;; count the number of records, and set see if it may be modified
   (let (ro)