summaryrefslogtreecommitdiffstats
path: root/tools
diff options
context:
space:
mode:
authorhobbs <hobbs@noemail.net>1999-12-22 22:59:59 (GMT)
committerhobbs <hobbs@noemail.net>1999-12-22 22:59:59 (GMT)
commit050d8266e1e03775c41764e8ebd37b662557602b (patch)
treee78f0ed240e8427c866ada2f933aa0d74ac25e95 /tools
parent1dc71d273193ce832612fb78d36f6a1ed182891b (diff)
downloadtcl-050d8266e1e03775c41764e8ebd37b662557602b.zip
tcl-050d8266e1e03775c41764e8ebd37b662557602b.tar.gz
tcl-050d8266e1e03775c41764e8ebd37b662557602b.tar.bz2
minor bug fix in man2help.tcl and updated configure.in to 8.3
FossilOrigin-Name: 56a85243d77dcc22081ba1684bf9a0c39261ffaf
Diffstat (limited to 'tools')
-rw-r--r--tools/configure.in4
-rw-r--r--tools/man2help.tcl4
2 files changed, 4 insertions, 4 deletions
diff --git a/tools/configure.in b/tools/configure.in
index 54bd910..ff44460 100644
--- a/tools/configure.in
+++ b/tools/configure.in
@@ -2,7 +2,7 @@ dnl This file is an input file used by the GNU "autoconf" program to
dnl generate the file "configure", which is run to configure the
dnl Makefile in this directory.
AC_INIT(man2tcl.c)
-# RCS: @(#) $Id: configure.in,v 1.7 1999/06/27 20:38:35 hershey Exp $
+# RCS: @(#) $Id: configure.in,v 1.8 1999/12/22 22:59:59 hobbs Exp $
# Recover information that Tcl computed with its configure script.
@@ -11,7 +11,7 @@ AC_INIT(man2tcl.c)
# not, assume that its top-level directory is a sibling of ours.
#--------------------------------------------------------------------
-AC_ARG_WITH(tcl, [ --with-tcl=DIR use Tcl 8.2 binaries from DIR], TCL_BIN_DIR=$withval, TCL_BIN_DIR=`cd ../../tcl8.2$TCL_PATCH_LEVEL/unix; pwd`)
+AC_ARG_WITH(tcl, [ --with-tcl=DIR use Tcl 8.3 binaries from DIR], TCL_BIN_DIR=$withval, TCL_BIN_DIR=`cd ../../tcl8.3$TCL_PATCH_LEVEL/unix; pwd`)
if test ! -d $TCL_BIN_DIR; then
AC_MSG_ERROR(Tcl directory $TCL_BIN_DIR doesn't exist)
fi
diff --git a/tools/man2help.tcl b/tools/man2help.tcl
index efe254b..60914a5 100644
--- a/tools/man2help.tcl
+++ b/tools/man2help.tcl
@@ -6,7 +6,7 @@
#
# Copyright (c) 1996 by Sun Microsystems, Inc.
#
-# RCS: @(#) $Id: man2help.tcl,v 1.5 1999/12/21 23:59:28 hobbs Exp $
+# RCS: @(#) $Id: man2help.tcl,v 1.6 1999/12/22 22:59:59 hobbs Exp $
#
#
@@ -29,7 +29,7 @@ proc generateContents {basename version files} {
puts $fd "1 $section"
set lastTopic {}
foreach topic [getTopics $package $section] {
- if {[string equal $lastTopic $topic]} {
+ if {[string compare $lastTopic $topic]} {
set id $topics($package,$section,$topic)
puts $fd "2 $topic=$id"
set lastTopic $topic