branch master updated: * doc/texinfo.tex (\image): Begin \vtop with negative kern by approximate height of a line for better vertical positioning. Report for @image at top of page by Werner.

[Gavin D. Smith]

This is an automated email from the git hooks/post-receive script.

gavin pushed a commit to branch master
in repository texinfo.

The following commit(s) were added to refs/heads/master by this push:
     new 58441d97cc * doc/texinfo.tex (\image): Begin \vtop with negative kern 
by approximate height of a line for better vertical positioning. Report for 
@image at top of page by Werner.
58441d97cc is described below

commit 58441d97cc5305b2f33e14920bdf48e6b5993ddf
Author: Gavin Smith <gavinsmith0123@gmail.com>
AuthorDate: Wed Sep 21 16:39:27 2022 +0100

    * doc/texinfo.tex (\image): Begin \vtop with negative kern by
    approximate height of a line for better vertical positioning.
    Report for @image at top of page by Werner.
---
 ChangeLog       |  6 ++++++
 doc/texinfo.tex | 10 ++++++++--
 2 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index fb35d0496d..040b5f6d6c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2022-09-21  Gavin Smith  <gavinsmith0123@gmail.com>
+
+       * doc/texinfo.tex (\image): Begin \vtop with negative kern by
+       approximate height of a line for better vertical positioning.
+       Report for @image at top of page by Werner.
+
 2022-09-20  Patrice Dumas  <pertusus@free.fr>
 
        * tp/Texinfo/ParserNonXS.pm (_end_line),
diff --git a/doc/texinfo.tex b/doc/texinfo.tex
index 3c887c9d3c..cc0f1fa2e2 100644
--- a/doc/texinfo.tex
+++ b/doc/texinfo.tex
@@ -3,7 +3,7 @@
 % Load plain if necessary, i.e., if running under initex.
 \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
 %
-\def\texinfoversion{2022-09-18.02}
+\def\texinfoversion{2022-09-21.15}
 %
 % Copyright 1985, 1986, 1988, 1990-2022 Free Software Foundation, Inc.
 %
@@ -9318,6 +9318,12 @@ might help (with 'rm \jobname.?? \jobname.??s')%
     \imagexxx #1,,,,,\finish
   \fi
 }
+
+% Approximate height of a line in the standard text font.
+\newdimen\capheight
+\setbox0=\vbox{\tenrm H}
+\capheight=\ht0
+
 %
 % Arguments to @image:
 % #1 is (mandatory) image filename; we tack on .eps extension.
@@ -9347,7 +9353,7 @@ might help (with 'rm \jobname.?? \jobname.??s')%
     %
     % Place image in a \vtop for a top page margin that is (close to) correct,
     % as \topskip glue is relative to the first baseline.
-    \vtop\bgroup\hrule height 0pt\vskip-\parskip
+    \vtop\bgroup \kern -\capheight \vskip-\parskip
   \fi
   %
   % Enter horizontal mode so that indentation from an enclosing