diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-01-15 16:19:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-01-15 16:19:53 +0000 |
| commit | a9d358fb753d3d762e1bb25d05f5d3dc0eb985c4 (patch) | |
| tree | abec3abad61c51b833d9beb96d23fbe379a04d09 /lisp/forms.el | |
| parent | 739394c764d017b8411e9c4e48b6ae1d0735060b (diff) | |
| download | emacs-a9d358fb753d3d762e1bb25d05f5d3dc0eb985c4.tar.gz | |
(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.
Diffstat (limited to 'lisp/forms.el')
| -rw-r--r-- | lisp/forms.el | 10 |
1 files 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 |