diff options
| author | Johan Vromans <jvromans@squirrel.nl> | 1995-07-08 13:16:54 +0000 |
|---|---|---|
| committer | Johan Vromans <jvromans@squirrel.nl> | 1995-07-08 13:16:54 +0000 |
| commit | 6c527807867c83e71ec9d0ab92cb4589f33a51a4 (patch) | |
| tree | a7d18a566b73d32440e1d5043d82ddd4a9909c13 /lisp/forms.el | |
| parent | dc84f5f28905dab9aa34c98cc7b42c976bf9a07c (diff) | |
| download | emacs-6c527807867c83e71ec9d0ab92cb4589f33a51a4.tar.gz | |
(forms-mode): treat local-write-file-hooks as a list.
Diffstat (limited to 'lisp/forms.el')
| -rw-r--r-- | lisp/forms.el | 6 |
1 files changed, 3 insertions, 3 deletions
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) |