Mercurial > emacs
changeset 51282:933251fe83b1
(forms-mode): Use write-file-functions instead of local-write-file-hooks.
Use make-local-variable to make it local.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 28 May 2003 11:19:48 +0000 |
| parents | 0278ce06c1b3 |
| children | 956ab3f2a864 |
| files | lisp/forms.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/forms.el Wed May 28 11:18:00 2003 +0000 +++ b/lisp/forms.el Wed May 28 11:19:48 2003 +0000 @@ -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 @@ (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)