summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-01-09 19:32:16 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-01-09 19:32:16 (GMT)
commit4fa186f2a0a170f444dba8467015f295231cbfd3 (patch)
tree79af52142845ecc76095a577de9ecb02526c11f4
parent497bc9460c22455176d9935f1af6b643260c2dbd (diff)
downloadtcl-4fa186f2a0a170f444dba8467015f295231cbfd3.zip
tcl-4fa186f2a0a170f444dba8467015f295231cbfd3.tar.gz
tcl-4fa186f2a0a170f444dba8467015f295231cbfd3.tar.bz2
Small tweaks to improve reporting and quell some unimportant messages
-rwxr-xr-xtools/tcltk-man2html.tcl6
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
}