[nasm:nasm-2.15.xx] doc: actually *use* the smaller code font size...

[nasm-bot for H. Peter Anvin (Intel)]

Commit-ID:  d1a9f8a2f7ac126b4b5d4de14426a0f8a6085e06
Gitweb:     http://repo.or.cz/w/nasm.git?a=commitdiff;h=d1a9f8a2f7ac126b4b5d4de14426a0f8a6085e06
Author:     H. Peter Anvin (Intel) <hpa at zytor.com>
AuthorDate: Sat, 27 Jun 2020 23:10:50 -0700
Committer:  H. Peter Anvin (Intel) <hpa at zytor.com>
CommitDate: Sat, 27 Jun 2020 23:10:50 -0700

doc: actually *use* the smaller code font size...

Helps to actually use what is intended.

Signed-off-by: H. Peter Anvin (Intel) <hpa at zytor.com>


---
 doc/genps.pl | 4 ++--
 doc/head.ps  | 8 ++++----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/doc/genps.pl b/doc/genps.pl
index 7cbe23c0..b5a1a8a2 100755
--- a/doc/genps.pl
+++ b/doc/genps.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 ## --------------------------------------------------------------------------
 ##
-##   Copyright 1996-2017 The NASM Authors - All Rights Reserved
+##   Copyright 1996-2020 The NASM Authors - All Rights Reserved
 ##   See the file AUTHORS included with the NASM distribution for
 ##   the specific copyright holders.
 ##
@@ -775,7 +775,7 @@ sub ps_break_lines($$) {
 	    my $p;
 	    # Code paragraph; each chunk is a line
 	    foreach $p ( @data ) {
-		push(@ls, [[$ptype,0,undef,\%BodyFont,0,0],[$p]]);
+		push(@ls, [[$ptype,0,undef,\%CodeFont,0,0],[$p]]);
 	    }
 	    $ls[0]->[0]->[1] |= 1;	     # First in para
 	    $ls[-1]->[0]->[1] |= 2;      # Last in para
diff --git a/doc/head.ps b/doc/head.ps
index 7fbb3a90..6109915d 100644
--- a/doc/head.ps
+++ b/doc/head.ps
@@ -246,10 +246,10 @@
 /norm2 { lmarg exch moveto bfont showstream } def
 /norm3 { lmarg exch moveto bfont showstream } def
 
-/code0 { lmarg exch moveto bfont showstream } def
-/code1 { lmarg exch moveto bfont showstream } def
-/code2 { lmarg exch moveto bfont showstream } def
-/code3 { lmarg exch moveto bfont showstream } def
+/code0 { lmarg exch moveto xfont showstream } def
+/code1 { lmarg exch moveto xfont showstream } def
+/code2 { lmarg exch moveto xfont showstream } def
+/code3 { lmarg exch moveto xfont showstream } def
 
 /bull0 { bullmarg exch moveto bfont bwidth showstreamjust } def
 /bull1 { dup lmarg exch moveto bullet bfont showstream