--- a/lisp/eterm/tshell.el	Mon Aug 13 09:15:51 2007 +0200
+++ b/lisp/eterm/tshell.el	Mon Aug 13 09:16:51 2007 +0200
@@ -258,14 +258,17 @@
        (define-key tshell-mode-map "\t" 'term-dynamic-complete)
        (define-key tshell-mode-map "\M-?"
 	 'term-dynamic-list-filename-completions)
-       (define-key-after (lookup-key tshell-mode-map [menu-bar completion])
-	 [complete-env-variable] '("Complete Env. Variable Name" .
-				   tshell-dynamic-complete-environment-variable)
-	 'complete-file)
-       (define-key-after (lookup-key tshell-mode-map [menu-bar completion])
-	 [expand-directory] '("Expand Directory Reference" .
-			      tshell-replace-by-expanded-directory)
-	 'complete-expand)))
+;;; XEmacs change [JTL]: We don't have define-key-after   
+;;;		         (and we don't need it ...)
+;;;       (define-key-after (lookup-key tshell-mode-map [menu-bar completion])
+;;;	 [complete-env-variable] '("Complete Env. Variable Name" .
+;;;				   tshell-dynamic-complete-environment-variable)
+;;;	    'complete-file)
+;;;	  (define-key-after (lookup-key tshell-mode-map [menu-bar completion])
+;;;	    [expand-directory] '("Expand Directory Reference" .
+;;;				 tshell-replace-by-expanded-directory)
+;;;	    'complete-expand)
+       ))
 
 (defvar tshell-mode-hook '()
   "*Hook for customising Tshell mode.")