From a9d358fb753d3d762e1bb25d05f5d3dc0eb985c4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 15 Jan 1999 16:19:53 +0000 Subject: [PATCH] (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. --- lisp/forms.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/forms.el b/lisp/forms.el index ab34fda4f34..df683ae1363 100644 --- a/lisp/forms.el +++ b/lisp/forms.el @@ -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 @@ Commands: Equivalent keys in read-only mode: (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 @@ after writing out the data." (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 @@ after writing out the data." (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 -- 2.39.2