(Info-split): Fix 1-off error in subfile position.

diff --git a/lisp/informat.el b/lisp/informat.el
index 5a861ed18ba96fd0a09e955d55ea3ae6dfb1efb9..2d923a1570d29bcdd5d98436d0e36adaa9d8262c 100644 (file)
--- a/lisp/informat.el
+++ b/lisp/informat.el
@@ -143,7 +143,7 @@ contains just the tag table and a directory of subfiles."
     (while subfiles
       (goto-char start)
       (insert (nth 1 (car subfiles))
-             (format ": %d" (car (car subfiles)))
+             (format ": %d" (1- (car (car subfiles))))
              "\n")
       (setq subfiles (cdr subfiles)))
     (goto-char start)