mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Johan Vromans 1995-07-08 13:16:54 +00:00
parent d5ad1373cc
commit be3e4bb1b8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/forms.el
View File

@ -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)