63 |
;; Automatic mode switching is supported if you specify |
;; Automatic mode switching is supported if you specify |
64 |
;; "-*- forms -*-" in the first line of the control file. |
;; "-*- forms -*-" in the first line of the control file. |
65 |
;; |
;; |
66 |
;; The control file is visited, evaluated using `eval-current-buffer', |
;; The control file is visited, evaluated using `eval-buffer', |
67 |
;; and should set at least the following variables: |
;; and should set at least the following variables: |
68 |
;; |
;; |
69 |
;; forms-file [string] |
;; forms-file [string] |
519 |
(yes-or-no-p |
(yes-or-no-p |
520 |
(concat "Evaluate lisp code in buffer " |
(concat "Evaluate lisp code in buffer " |
521 |
(buffer-name) " to display forms "))) |
(buffer-name) " to display forms "))) |
522 |
(eval-current-buffer) |
(eval-buffer) |
523 |
(error "`enable-local-eval' inhibits buffer evaluation")) |
(error "`enable-local-eval' inhibits buffer evaluation")) |
524 |
|
|
525 |
;; Check if the mandatory variables make sense. |
;; Check if the mandatory variables make sense. |