[Emacs-diffs] Changes to emacs/lisp/forms.el

[Richard M. Stallman]

Index: emacs/lisp/forms.el
diff -c emacs/lisp/forms.el:2.46 emacs/lisp/forms.el:2.47
*** emacs/lisp/forms.el:2.46    Fri May 23 08:48:06 2003
--- emacs/lisp/forms.el Wed May 28 07:19:48 2003
***************
*** 286,292 ****
  ;; forms mode functions next/prev record and first/last
  ;; record.
  ;;
! ;; `local-write-file-hooks' is defined to save the actual data file
  ;; instead of the buffer data, `revert-file-hook' is defined to
  ;; revert a forms to original.
  
--- 286,292 ----
  ;; forms mode functions next/prev record and first/last
  ;; record.
  ;;
! ;; `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,310 ****
  (provide 'forms)                      ;;; official
  (provide 'forms-mode)                 ;;; for compatibility
  
! (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.46 2003/05/23 12:48:06 rms Exp $")
  
  (defcustom forms-mode-hooks nil
    "Hook run upon entering Forms mode."
--- 301,310 ----
  (provide 'forms)                      ;;; official
  (provide 'forms-mode)                 ;;; for compatibility
  
! (defconst forms-version (substring "$Revision: 2.47 $" 11 -2)
    "The version number of forms-mode (as string).  The complete RCS id is:
  
!   $Id: forms.el,v 2.47 2003/05/28 11:19:48 rms Exp $")
  
  (defcustom forms-mode-hooks nil
    "Hook run upon entering Forms mode."
***************
*** 656,668 ****
            (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)))))
        (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))))))
  
    ;; count the number of records, and set see if it may be modified
    (let (ro)
--- 656,668 ----
            (if (not file-modified) (set-buffer-modified-p nil)))
          (if write-file-filter
              (progn
!               (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-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)