From cff68fe35918bf944a752008feb68713b198f05e Mon Sep 17 00:00:00 2001
From: Werner Koch <wk@gnupg.org>
Date: Mon, 21 Feb 2022 12:16:17 +0100
Subject: [PATCH] scd,w32: Print code pages with --show-configs

* tools/gpgconf.c (show_configs): Do it.
---
 tools/gpgconf.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/tools/gpgconf.c b/tools/gpgconf.c
index 2bb25840d..dbda45046 100644
--- a/tools/gpgconf.c
+++ b/tools/gpgconf.c
@@ -1419,6 +1419,15 @@ show_configs (estream_t outfp)
   show_version_gnupg (outfp, "### ");
   es_fprintf (outfp, "### Libgcrypt %s\n", gcry_check_version (NULL));
   es_fprintf (outfp, "### GpgRT %s\n", gpg_error_check_version (NULL));
+#ifdef HAVE_W32_SYSTEM
+  es_fprintf (outfp, "### Codepages:");
+  if (GetConsoleCP () != GetConsoleOutputCP ())
+    es_fprintf (outfp, " %u/%u", GetConsoleCP (), GetConsoleOutputCP ());
+  else
+    es_fprintf (outfp, " %u", GetConsoleCP ());
+  es_fprintf (outfp, " %u", GetACP ());
+  es_fprintf (outfp, " %u\n", GetOEMCP ());
+#endif
   es_fprintf (outfp, "###\n\n");
 
   list_dirs (outfp, NULL, 1);