/[emacs]/emacs/lisp/forms.el
ViewVC logotype

Diff of /emacs/lisp/forms.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.52 by lute, Thu May 26 12:50:09 2005 UTC revision 2.53 by lektu, Tue Jun 14 11:30:22 2005 UTC
# Line 550  Commands:                        Equival Line 550  Commands:                        Equival
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)
# Line 1207  Commands:                        Equival Line 1207  Commands:                        Equival
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))
# Line 1983  after writing out the data." Line 1983  after writing out the data."
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)

Legend:
Removed from v.2.52  
changed lines
  Added in v.2.53

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26