diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-10-24 14:56:38 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-10-24 14:56:38 (GMT) |
| commit | 3a72b68957dd3b1f2e48e34ead8b06b16b0c1b20 (patch) | |
| tree | 19e788fb839b5504a8138f8b489058d436127c23 | |
| parent | ff1b50a4021b13cb6e539e212ac3b704fb0de6c5 (diff) | |
| download | tcl-3a72b68957dd3b1f2e48e34ead8b06b16b0c1b20.zip tcl-3a72b68957dd3b1f2e48e34ead8b06b16b0c1b20.tar.gz tcl-3a72b68957dd3b1f2e48e34ead8b06b16b0c1b20.tar.bz2 | |
Deal with a nasty special case.
| -rw-r--r-- | tools/man2html2.tcl | 8 |
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] |