summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-10-24 14:56:38 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-10-24 14:56:38 (GMT)
commit3a72b68957dd3b1f2e48e34ead8b06b16b0c1b20 (patch)
tree19e788fb839b5504a8138f8b489058d436127c23
parentff1b50a4021b13cb6e539e212ac3b704fb0de6c5 (diff)
downloadtcl-3a72b68957dd3b1f2e48e34ead8b06b16b0c1b20.zip
tcl-3a72b68957dd3b1f2e48e34ead8b06b16b0c1b20.tar.gz
tcl-3a72b68957dd3b1f2e48e34ead8b06b16b0c1b20.tar.bz2
Deal with a nasty special case.
-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]