poke-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[COMMITTED] pickles: openpgp: do not print trailing newlines in pretty-p


From: Jose E. Marchesi
Subject: [COMMITTED] pickles: openpgp: do not print trailing newlines in pretty-printers
Date: Sun, 10 Apr 2022 21:56:39 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/28.0.50 (gnu/linux)

2022-04-10  Jose E. Marchesi  <jemarch@gnu.org>

        * pickles/openpgp.pk (PGP_Packet_Header): Do not print a newline
        in the pretty-printer.
        (PGP_MPI): Likewise.
---
 ChangeLog          | 6 ++++++
 pickles/openpgp.pk | 4 ++--
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index df1cb830..e08b6c01 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2022-04-10  Jose E. Marchesi  <jemarch@gnu.org>
 
+       * pickles/openpgp.pk (PGP_Packet_Header): Do not print a newline
+       in the pretty-printer.
+       (PGP_MPI): Likewise.
+
+2022-04-10  Jose E. Marchesi  <jemarch@gnu.org>
+
        * pickles/openpgp.pk (PGP_V3_Packet_Length): Use tag logic to get
        the union value.
        (PGP_V4_Packet_Length): fix units.
diff --git a/pickles/openpgp.pk b/pickles/openpgp.pk
index 42a61dc9..dbc9ee40 100644
--- a/pickles/openpgp.pk
+++ b/pickles/openpgp.pk
@@ -152,7 +152,7 @@ type PGP_Packet_Header =
 
     method _print = void:
     {
-      printf("#<pgp_header:packet=%s(%u8d),format:%s,length=%v>\n",
+      printf("#<pgp_header:packet=%s(%u8d),format:%s,length=%v>",
              pgp_packet_tag_name (get_tag), get_tag,
              v4_format ? "v4" : "v3", get_length);
     }
@@ -175,7 +175,7 @@ type PGP_MPI =
         printf("0x%u32x", num as uint<64> );
       else
         print "###";
-      print ">\n";
+      print ">";
     }
   };
 
-- 
2.11.0




reply via email to

[Prev in Thread] Current Thread [Next in Thread]