550 |
(eq (length forms-multi-line) 1)) |
(eq (length forms-multi-line) 1)) |
551 |
(if (string= forms-multi-line forms-field-sep) |
(if (string= forms-multi-line forms-field-sep) |
552 |
(error (concat "Forms control file error: " |
(error (concat "Forms control file error: " |
553 |
"`forms-multi-line' is equal to 'forms-field-sep'"))) |
"`forms-multi-line' is equal to `forms-field-sep'"))) |
554 |
(error (concat "Forms control file error: " |
(error (concat "Forms control file error: " |
555 |
"`forms-multi-line' must be nil or a one-character string")))) |
"`forms-multi-line' must be nil or a one-character string")))) |
556 |
(or (fboundp 'set-text-properties) |
(or (fboundp 'set-text-properties) |
1207 |
|
|
1208 |
;; Need a file to do this. |
;; Need a file to do this. |
1209 |
(if (not (file-exists-p forms-file)) |
(if (not (file-exists-p forms-file)) |
1210 |
(error "Need existing file or explicit 'forms-number-of-records'") |
(error "Need existing file or explicit `forms-number-of-fields'") |
1211 |
|
|
1212 |
;; Visit the file and extract the first record. |
;; Visit the file and extract the first record. |
1213 |
(setq forms--file-buffer (find-file-noselect forms-file)) |
(setq forms--file-buffer (find-file-noselect forms-file)) |
1983 |
(goto-char (aref forms--markers (1- (length forms--markers))))))) |
(goto-char (aref forms--markers (1- (length forms--markers))))))) |
1984 |
|
|
1985 |
(defun forms-print () |
(defun forms-print () |
1986 |
"Send the records to the printer with 'print-buffer', one record per page." |
"Send the records to the printer with `print-buffer', one record per page." |
1987 |
(interactive) |
(interactive) |
1988 |
(let ((inhibit-read-only t) |
(let ((inhibit-read-only t) |
1989 |
(save-record forms--current-record) |
(save-record forms--current-record) |