@@ -1,32 +1,18 @@ # -*- tclsh -*- # FILE: "/home/joze/src/tclreadline/tclreadlineCompleter.tcl" -# LAST MODIFICATION: "Thu, 23 Mar 2000 22:38:08 +0100 (joze)" +# LAST MODIFICATION: "Sat, 25 Mar 2000 21:28:45 +0100 (joze)" # (C) 1998 - 2000 by Johannes Zellner, # $Id$ # vim:set ts=4: # --- # # tclreadline -- gnu readline for tcl -# Copyright (C) 1998 - 2000 by Johannes Zellner -# -# This program is free software; you can redistribute it and/or -# modify it under the terms of the GNU General Public License -# as published by the Free Software Foundation; either version 2 -# of the License, or (at your option) any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. -# -# johannes@zellner.org # http://www.zellner.org/tclreadline/ +# Copyright (c) 1998 - 2000, Johannes Zellner +# +# This software is copyright under the BSD license. # # ================================================================== # TODO: @@ -2267,12 +2253,11 @@ return "" } # the unknown proc handles the rest # -proc \ -http::complete(tclreadline_complete_unknown) {text start end line pos mod} { +proc http::complete(tclreadline_complete_unknown) {text start end line pos mod} { set cmd [Lindex $line 0] regsub -all {^.*::} $cmd "" cmd switch -- $pos { 1 { switch -- $cmd {