🚀 go-pugleaf

Context: I'm editing a record in forms-edit-mode. Then I switch to
forms-ro-mode without saving via M-x forms-toggle-read-only. Also I've
previously define a hook function for read-file-filter (which is
therefore non-nil).

Now I'm in view mode and I try to save via M-x forms-save-buffer.
=> Emacs says: (No changes need to be saved)
and therefore doesn't save the data which indeed has been modified and
need to be saved.

The following patch fixes this problem.

Tue Sep 13 00:14:20 1994  Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>

	* forms.el (forms-mode): When read-file-filter is non-nil, don't 
	set buffer-modified-p to nil if the buffer was previously
	modified.

===================================================================
RCS file: /triton/GNU.rep/emacs19/lisp/forms.el,v
retrieving revision 1.3
diff -p -c -r1.3 forms.el
*** 1.3	1994/08/30 15:19:47
--- forms.el	1994/09/14 08:46:33
*************** Commands:                        Equival
*** 603,611 ****
      (if read-file-filter
  	(save-excursion
  	  (set-buffer forms--file-buffer)
! 	  (let ((inhibit-read-only t))
! 	    (run-hooks 'read-file-filter))
! 	  (set-buffer-modified-p nil)
  	  (if write-file-filter
  	      (progn
  		(make-variable-buffer-local 'local-write-file-hooks)
--- 603,612 ----
      (if read-file-filter
  	(save-excursion
  	  (set-buffer forms--file-buffer)
! 	  (let ((inhibit-read-only t)
! 		(file-modified (buffer-modified-p)))
! 	    (run-hooks 'read-file-filter)
! 	    (if (not file-modified) (set-buffer-modified-p nil)))
  	  (if write-file-filter
  	      (progn
  		(make-variable-buffer-local 'local-write-file-hooks)