# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 916417193 0
# Node ID b5abeb8ab5001c638dd584d70c2371bf1ae021de
# Parent  6236e60302e21ef6c0f02d9af9e08b5e491c8cbd
(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.

diff -r 6236e60302e2 -r b5abeb8ab500 lisp/forms.el
--- a/lisp/forms.el	Fri Jan 15 14:47:50 1999 +0000
+++ b/lisp/forms.el	Fri Jan 15 16:19:53 1999 +0000
@@ -296,10 +296,10 @@
 (provide 'forms)			;;; official
 (provide 'forms-mode)			;;; for compatibility
 
-(defconst forms-version (substring "$Revision: 2.35 $" 11 -2)
+(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.35 1998/07/17 14:01:15 stephen Exp kwzh $")
+  $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."
@@ -1545,7 +1545,8 @@
   (set-buffer-modified-p nil)
   (setq buffer-read-only forms-read-only)
   (setq mode-line-process
-	(concat " " forms--current-record "/" forms--total-records)))
+	(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."
@@ -2001,6 +2002,7 @@
   (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)
@@ -2011,7 +2013,7 @@
 	(goto-char (buffer-end 1))
 	(insert record)
 	(setq buffer-read-only nil)
-	(if (< nb-record forms--total-records)
+	(if (< nb-record total-nb-records)
 	    (insert "\n\n")))
       (setq nb-record (1+ nb-record)))
     (save-excursion