Index: Makefile.in ================================================================== --- Makefile.in +++ Makefile.in @@ -1,8 +1,8 @@ # -*- make -*- # FILE: "/disk01/home/joze/src/tclreadline/Makefile.in" -# LAST MODIFICATION: "Mon Sep 20 02:18:01 1999 (joze)" +# LAST MODIFICATION: "Wed Sep 29 10:57:20 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, # $Id$ # --- # # tclreadline -- gnu readline for tcl @@ -79,11 +79,12 @@ # Path to use at runtime to refer to LIB_INSTALL_DIR: LIB_RUNTIME_DIR = $(exec_prefix)/lib # Top-level directory for manual entries: -MAN_INSTALL_DIR = $(INSTALL_ROOT)$(prefix)/man +# MAN_INSTALL_DIR = $(INSTALL_ROOT)$(prefix)/man +MAN_INSTALL_DIR = $(INSTALL_ROOT)@mandir@ # Directory in which to install manual entries for the built-in # Tcl commands implemented by Tk: MANN_INSTALL_DIR = $(MAN_INSTALL_DIR)/mann @@ -245,13 +246,13 @@ clean: rm -f *.a *.o core errs *~ \#* tags* *.E a.out errors so_locations distclean: clean rm -f \ - Makefile *.so *.sl pkgIndex.tcl tclreadlineInit.tcl \ - tclreadlineSetup.tcl config.h tclreadline.h tclreadline.n \ - tclreadlineConfig.sh config.status config.log config.cache + Makefile *.so.* *.sl pkgIndex.tcl tclreadlineInit.tcl \ + tclreadlineSetup.tcl config.h tclreadline.h tclreadline.n \ + tclreadlineConfig.sh config.status config.log config.cache depend: makedepend -- $(CC_SWITCHES) -- $(CSRCS) configure: configure.in @@ -284,8 +285,10 @@ distribution: $(SOURCES) configure $(AUXILIARY) tclreadline.n.html - mkdir -p dist/tclreadline-$(PATCHLEVEL)/aux - cp $(SOURCES) configure tclreadline.n.html dist/tclreadline-$(PATCHLEVEL) - cp $(AUXILIARY) dist/tclreadline-$(PATCHLEVEL)/aux (cd dist; tar zcvf tclreadline-$(PATCHLEVEL).tar.gz tclreadline-$(PATCHLEVEL); rm -rf tclreadline-$(PATCHLEVEL)) + - cp README dist/tclreadline-$(PATCHLEVEL).README + - echo AddDescription '"most recent version"' tclreadline-$(PATCHLEVEL).tar.gz > dist/.htaccess # DO NOT DELETE THIS LINE -- make depend depends on it. Index: tclreadlineCompleter.tcl ================================================================== --- tclreadlineCompleter.tcl +++ tclreadlineCompleter.tcl @@ -1,8 +1,8 @@ # -*- tclsh -*- -# FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl" -# LAST MODIFICATION: "Tue Sep 28 23:04:09 1999 (joze)" +# FILE: "/disk01/home/joze/src/tclreadline/tclreadlineCompleter.tcl" +# LAST MODIFICATION: "Wed Sep 29 18:00:58 1999 (joze)" # (C) 1998, 1999 by Johannes Zellner, # $Id$ # --- # # tclreadline -- gnu readline for tcl @@ -616,11 +616,11 @@ # it's a widget. Try to get it's class name. # if {![catch [list set class [winfo class [Lindex ${line} 0]]]]} { if {[string length [info proc ${class}Obj]]} { set result [${class}Obj ${text} ${start} ${end} ${line} ${pos}] - return 1 + return 0 } else { return 0 } } } @@ -2008,11 +2008,11 @@ proc complete(file) {text start end line pos mod} { switch -- $pos { 1 { set cmds { - atime attributes copy delete dirname executable exists + atime attributes channels copy delete dirname executable exists extension isdirectory isfile join lstat mkdir mtime nativename owned pathtype readable readlink rename rootname size split stat tail type volumes writable } return [TryFromList $text $cmds] @@ -2020,10 +2020,11 @@ 2 { set cmd [Lindex $line 1] switch -- $cmd { atime - attributes - + channels - dirname - executable - exists - extension - isdirectory -