Update of bug #68872 (group groff):
Summary: [troff] make `pev` request report environment's
modified glyph height and slant => [PATCH] [troff] make `pev` request report
environment's modified glyph height and slant
_______________________________________________________
Follow-up Comment #1:
commit 412c0c00320c5d68f104b1acf77d0b7948f8c81b
Author: G. Branden Robinson <[email protected]>
Date: Mon Nov 2 00:56:29 2026 -0600
[troff]: pev reports modified glyph height/slant.
* src/roff/troff/env.cpp (environment::dump): Report values of modified
glyph height and slant, as applicable.
Fixes <https://savannah.gnu.org/bugs/?68872>.
diff --git a/ChangeLog b/ChangeLog
index 20f1ff0c5..48266c57b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2026-11-01 G. Branden Robinson <[email protected]>
+
+ * src/roff/troff/env.cpp (environment::dump): Report values of
+ modified glyph height and slant, as applicable.
+
+ Fixes <https://savannah.gnu.org/bugs/?68872>.
+
2026-11-01 G. Branden Robinson <[email protected]>
* src/roff/troff/env.cpp (char_as_unicode_buf): New `static`
diff --git a/src/roff/troff/env.cpp b/src/roff/troff/env.cpp
index f2fb12c58..9a0262a84 100644
--- a/src/roff/troff/env.cpp
+++ b/src/roff/troff/env.cpp
@@ -3639,8 +3639,8 @@ void environment::dump()
// At the time this request is invoked, the following values are zero
// or meaningless.
//
- // char_height, char_slant,
- // was_line_interrupted
+ // was_line_interrupted (we report whether the _previous_ line was)
+ //
// current_tab, tab_width, tab_distance
// has_current_field, field_distance, pre_field_width, field_spaces,
// tab_field_spaces, tab_precedes_field
@@ -3663,6 +3663,14 @@ void environment::dump()
prev_fontno, get_font_name(prev_fontno, this).contents());
errprint(" resolved font selection: %1 ('%2')\n", fontno,
get_font_name(fontno, this).contents());
+ errprint(" modified glyph height: %1s", char_height);
+ if (0 == char_height)
+ errprint(" (unmodified)");
+ errprint("\n");
+ errprint(" modified glyph slant: %1 degrees", char_slant);
+ if (0 == char_slant)
+ errprint(" (unmodified)");
+ errprint("\n");
errprint(" space size: %1/12 of font space width\n", space_size);
errprint(" sentence space size: %1/12 of font space width\n",
sentence_space_size);
_______________________________________________________
Reply to this item at:
<https://savannah.gnu.org/bugs/?68872>
_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/
signature.asc
Description: PGP signature
