Mercurial > emacs
comparison lisp/forms.el @ 12508:2b4958c6268a
(forms-mode): treat local-write-file-hooks as a list.
| author | Johan Vromans <jvromans@squirrel.nl> |
|---|---|
| date | Sat, 08 Jul 1995 13:16:54 +0000 |
| parents | eaff09164eae |
| children | 61961ca01260 |
comparison
equal
deleted
inserted
replaced
| 12507:da322c027bf0 | 12508:2b4958c6268a |
|---|---|
| 280 ;;; Global variables and constants: | 280 ;;; Global variables and constants: |
| 281 | 281 |
| 282 (provide 'forms) ;;; official | 282 (provide 'forms) ;;; official |
| 283 (provide 'forms-mode) ;;; for compatibility | 283 (provide 'forms-mode) ;;; for compatibility |
| 284 | 284 |
| 285 (defconst forms-version (substring "$Revision: 2.17 $" 11 -2) | 285 (defconst forms-version (substring "$Revision: 2.18 $" 11 -2) |
| 286 "The version number of forms-mode (as string). The complete RCS id is: | 286 "The version number of forms-mode (as string). The complete RCS id is: |
| 287 | 287 |
| 288 $Id: forms.el,v 2.17 1995/06/17 13:00:22 rms Exp jvromans $") | 288 $Id: forms.el,v 2.18 1995/06/18 14:43:23 jvromans Exp jvromans $") |
| 289 | 289 |
| 290 (defvar forms-mode-hooks nil | 290 (defvar forms-mode-hooks nil |
| 291 "Hook functions to be run upon entering Forms mode.") | 291 "Hook functions to be run upon entering Forms mode.") |
| 292 | 292 |
| 293 ;;; Mandatory variables - must be set by evaluating the control file. | 293 ;;; Mandatory variables - must be set by evaluating the control file. |
| 617 (setq local-write-file-hooks (list write-file-filter))))) | 617 (setq local-write-file-hooks (list write-file-filter))))) |
| 618 (if write-file-filter | 618 (if write-file-filter |
| 619 (save-excursion | 619 (save-excursion |
| 620 (set-buffer forms--file-buffer) | 620 (set-buffer forms--file-buffer) |
| 621 (make-variable-buffer-local 'local-write-file-hooks) | 621 (make-variable-buffer-local 'local-write-file-hooks) |
| 622 (setq local-write-file-hooks write-file-filter))))) | 622 (setq local-write-file-hooks (list write-file-filter)))))) |
| 623 | 623 |
| 624 ;; count the number of records, and set see if it may be modified | 624 ;; count the number of records, and set see if it may be modified |
| 625 (let (ro) | 625 (let (ro) |
| 626 (setq forms--total-records | 626 (setq forms--total-records |
| 627 (save-excursion | 627 (save-excursion |