diff options
| author | hobbs <hobbs@noemail.net> | 1999-12-22 22:59:59 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 1999-12-22 22:59:59 (GMT) |
| commit | 050d8266e1e03775c41764e8ebd37b662557602b (patch) | |
| tree | e78f0ed240e8427c866ada2f933aa0d74ac25e95 /tools | |
| parent | 1dc71d273193ce832612fb78d36f6a1ed182891b (diff) | |
| download | tcl-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.in | 4 | ||||
| -rw-r--r-- | tools/man2help.tcl | 4 |
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 |