summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--tools/man2html2.tcl8
1 files 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]