Mercurial > emacs
changeset 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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 15 Jan 1999 16:19:53 +0000 |
| parents | 6236e60302e2 |
| children | 4de23887487f |
| files | lisp/forms.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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