@@ -1,8 +1,8 @@
 #!/usr/locanl/bin/tclsh
 # FILE: "/diska/home/joze/src/tclreadline/tclreadlineSetup.tcl.in"
-# LAST MODIFICATION: "Wed Sep  1 19:24:22 1999 (joze)"
+# LAST MODIFICATION: "Fri Sep  3 10:21:15 1999 (joze)"
 # (C) 1998, 1999 by Johannes Zellner, <johannes@zellner.org>
 # $Id$
 # ---
 #
 # tclreadline -- gnu readline for tcl
@@ -93,10 +93,11 @@
 # - (resource is on mac only)
 # - return
 # - scan # TODO
 # - seek
 # - socket
+# - source
 # - split # TODO
 # - string
 # - subst
 # - switch
 # - tell
@@ -1018,11 +1019,10 @@
         "read ?-nonewline? channelId"
         "regexp ?switches? exp string ?matchVar? ?subMatchVar subMatchVar ...?"
         "rename oldName newName"
         "scan <string> <format> ?varName varName ...?"
         "set varName ?newValue?"
-        "source <fileName>"
         "split <string> ?splitChars?"
         "subst ?-nobackslashes? ?-nocommands? ?-novariables? string"
         "switch ?switches? string pattern body ... ?default body?"
         "time <command> ?count?"
         "unknown <cmdName> ?arg? ?...?"
@@ -1990,10 +1990,14 @@
         }
         return [AttemptFromList ${mod} [concat ${cmds} ${hosts}]]
     }
     return ""
 }
+
+proc complete(source) {text start end line pos mod} {
+    return ""; # force file name completion
+}
 
 proc complete(string) {text start end line pos mod} {
     set cmd [lindex ${line} 1]
     set cmds {
         compare first index last length match range tolower