diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-09 19:32:16 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-01-09 19:32:16 (GMT) |
| commit | 4fa186f2a0a170f444dba8467015f295231cbfd3 (patch) | |
| tree | 79af52142845ecc76095a577de9ecb02526c11f4 | |
| parent | 497bc9460c22455176d9935f1af6b643260c2dbd (diff) | |
| download | tcl-4fa186f2a0a170f444dba8467015f295231cbfd3.zip tcl-4fa186f2a0a170f444dba8467015f295231cbfd3.tar.gz tcl-4fa186f2a0a170f444dba8467015f295231cbfd3.tar.bz2 | |
Small tweaks to improve reporting and quell some unimportant messages
| -rwxr-xr-x | tools/tcltk-man2html.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/tcltk-man2html.tcl b/tools/tcltk-man2html.tcl index 747c020..4bc691c 100755 --- a/tools/tcltk-man2html.tcl +++ b/tools/tcltk-man2html.tcl @@ -1546,7 +1546,7 @@ proc make-man-pages {html args} { # initialize the long table of contents for this section set manual(long-toc-n) 1 # get the manual pages for this section - set manual(pages) [lsort -dictionary [glob $manual(wing-glob)]] + set manual(pages) [lsort -dictionary [glob -nocomplain $manual(wing-glob)]] set n [lsearch -glob $manual(pages) */ttk_widget.n] if {$n >= 0} { set manual(pages) "[lindex $manual(pages) $n] [lreplace $manual(pages) $n $n]" @@ -1559,7 +1559,7 @@ proc make-man-pages {html args} { set LQ \u201c set RQ \u201d foreach manual_page $manual(pages) { - set manual(page) $manual_page + set manual(page) [file normalize $manual_page] # whistle puts stderr "scanning page $manual(page)" set manual(tail) [file tail $manual(page)] @@ -1601,7 +1601,7 @@ proc make-man-pages {html args} { continue } switch -exact -- $code { - .ad - .na - .so - .ne - .AS - .VE - .VS - . { + .if - .nr - .ad - .na - .so - .ne - .AS - .VE - .VS - . { # ignore continue } |