From 3a72b68957dd3b1f2e48e34ead8b06b16b0c1b20 Mon Sep 17 00:00:00 2001 From: dkf Date: Wed, 24 Oct 2007 14:56:38 +0000 Subject: Deal with a nasty special case. --- tools/man2html2.tcl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/tools/man2html2.tcl b/tools/man2html2.tcl index 243649e..8c13c74 100644 --- a/tools/man2html2.tcl +++ b/tools/man2html2.tcl @@ -6,7 +6,7 @@ # # Copyright (c) 1996 by Sun Microsystems, Inc. # -# $Id: man2html2.tcl,v 1.11 2007/10/24 14:44:08 dkf Exp $ +# $Id: man2html2.tcl,v 1.12 2007/10/24 14:56:38 dkf Exp $ # package require Tcl 8.4 @@ -388,7 +388,11 @@ proc macro {name args} { } PQ { puts -nonewline $file "(&\#147;" - text [lindex $args 0] + if {[lindex $args 0] eq {\N'34'}} { + puts -nonewline $file \" + } else { + text [lindex $args 0] + } puts -nonewline $file "&\#148;" if {[llength $args] > 1} { text [lindex $args 1] -- cgit v0.12