Lines Matching defs:modified
92 ;; in the variable `forms-fields', they should *NOT* be modified.
160 ;; forms-modified-record-filter [symbol, default nil]
163 ;; been modified. It is called after the fields
170 ;; modified (using text-property `read-only').
197 ;; Great malfunctioning may be expected if this file/buffer is modified
209 ;; deduced from the form are modified. Fields not shown on the forms
216 ;; `forms-exit' saves the data to the file, if modified.
218 ;; is executed and the file buffer has been modified, Emacs will ask
365 (defvar forms-modified-record-filter nil
366 "The name of a function that is called when a record has been modified.")
371 The contents may NOT be modified.")
506 (make-local-variable 'forms-modified-record-filter)
512 (setq forms-modified-record-filter nil)
587 (if (and forms-modified-record-filter
588 (not (fboundp forms-modified-record-filter)))
590 "`forms-modified-record-filter' is not a function")))
654 (file-modified (buffer-modified-p)))
656 (if (not file-modified) (set-buffer-modified-p nil)))
663 ;; count the number of records, and set see if it may be modified
692 (set-buffer-modified-p nil)
708 (set-buffer-modified-p nil))
1467 (buffer-modified-p forms--file-buffer))
1537 (set-buffer-modified-p nil)
1549 ;; fields which were not in the form are not modified.
1561 (if forms-modified-record-filter
1565 (setq the-fields (funcall forms-modified-record-filter the-fields))
1604 "Check if this form has been modified, and call forms--update if so."
1605 (if (buffer-modified-p nil)
1608 (set-buffer-modified-p nil)
1926 (set-buffer-modified-p t))
1931 (set-buffer-modified-p nil)))
1939 "Reverts current form to un-modified."
1944 (set-buffer-modified-p nil)
2022 (set-buffer-modified-p nil)