comparison lisp/forms.el @ 24077:b5abeb8ab500

(forms--show-record): Convert integers to string expicitly since concat will no longer accept integers. (forms-print): Use local `total-nb-records' since `forms--total-records' will be inaccessible after buffer switching.

24076:6236e60302e2

;;; Global variables and constants:

(provide 'forms)			;;; official
(provide 'forms-mode)			;;; for compatibility

(defconst forms-version (substring "$Revision: 2.35 $" 11 -2)
  "The version number of forms-mode (as string).  The complete RCS id is:

  $Id: forms.el,v 2.35 1998/07/17 14:01:15 stephen Exp kwzh $")

(defcustom forms-mode-hooks nil
  "Hook functions to be run upon entering Forms mode."
  :group 'forms
  :type 'function)

  ;; Prepare.
  (goto-char (point-min))
  (set-buffer-modified-p nil)
  (setq buffer-read-only forms-read-only)
  (setq mode-line-process
	(concat " " forms--current-record "/" forms--total-records)))

(defun forms--parse-form ()
  "Parse contents of form into list of strings."
  ;; The contents of the form are parsed, and a new list of strings
  ;; is constructed.

(defun forms-print ()
  "Send the records to the printer with 'print-buffer', one record per page."
  (interactive)
  (let ((inhibit-read-only t)
	(save-record forms--current-record)
	(nb-record 1)
	(record nil))
    (while (<= nb-record forms--total-records)
      (forms-jump-record nb-record)
      (setq record (buffer-string))
      (save-excursion
	(set-buffer (get-buffer-create "*forms-print*"))
	(goto-char (buffer-end 1))
	(insert record)
	(setq buffer-read-only nil)
	(if (< nb-record forms--total-records)
	    (insert "\n\n")))
      (setq nb-record (1+ nb-record)))
    (save-excursion
      (set-buffer "*forms-print*")
      (print-buffer)

24077:b5abeb8ab500

;;; Global variables and constants:

(provide 'forms)			;;; official
(provide 'forms-mode)			;;; for compatibility

(defconst forms-version (substring "$Revision: 2.36 $" 11 -2)
  "The version number of forms-mode (as string).  The complete RCS id is:

  $Id: forms.el,v 2.36 1998/10/06 23:19:46 kwzh Exp rms $")

(defcustom forms-mode-hooks nil
  "Hook functions to be run upon entering Forms mode."
  :group 'forms
  :type 'function)

  ;; Prepare.
  (goto-char (point-min))
  (set-buffer-modified-p nil)
  (setq buffer-read-only forms-read-only)
  (setq mode-line-process
	(concat " " (int-to-string forms--current-record)
		"/" (int-to-string forms--total-records))))

(defun forms--parse-form ()
  "Parse contents of form into list of strings."
  ;; The contents of the form are parsed, and a new list of strings
  ;; is constructed.

(defun forms-print ()
  "Send the records to the printer with 'print-buffer', one record per page."
  (interactive)
  (let ((inhibit-read-only t)
	(save-record forms--current-record)
	(total-nb-records forms--total-records)
	(nb-record 1)
	(record nil))
    (while (<= nb-record forms--total-records)
      (forms-jump-record nb-record)
      (setq record (buffer-string))
      (save-excursion
	(set-buffer (get-buffer-create "*forms-print*"))
	(goto-char (buffer-end 1))
	(insert record)
	(setq buffer-read-only nil)
	(if (< nb-record total-nb-records)
	    (insert "\n\n")))
      (setq nb-record (1+ nb-record)))
    (save-excursion
      (set-buffer "*forms-print*")
      (print-buffer)