From xemacs-m  Thu Feb 27 17:59:02 1997
Received: from jens.metrix.de (jens@jens.metrix.de [194.123.88.124])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id RAA10303
	for <xemacs-beta@xemacs.org>; Thu, 27 Feb 1997 17:59:00 -0600 (CST)
Received: (from jens@localhost) by jens.metrix.de (8.7.6/8.7.3) id AAA11654; Fri, 28 Feb 1997 00:58:51 +0100
To: xemacs-beta@xemacs.org
Subject: Re: small buglet removed in tshell (sort of) and questions...
References: <m3iv3dx0rj.fsf@jens.metrix.de>
X-Face: Z[@OB)("ZvE?ev~1b+b!0ZUB.$%rh.9qE>dVf>q}Q/V?%d`J3gd!LR\aAZ8<Hwi]xTA(:*c;i3,?K?+rCy*^b$)a,}E?eo},}x2]5LlJysyoUOK"o[>K)'\Ulb7y-7*.If^;rHl['oa)n_M7E6w+LDKMs"G8_`c)uOS1^}.1|8Ill]7X68X-paeUOpBhz<F`B0?~^2Et~GYfw~/0]H]nx4~C_E/_mp#^7Ixc:
Reply-To: jens@lemming0.lem.uni-karlsruhe.de
Mime-Version: 1.0 (generated by tm-edit 7.105)
Content-Type: multipart/mixed;
 boundary="Multipart_Fri_Feb_28_00:58:50_1997-1"
Content-Transfer-Encoding: 7bit
From: Jens Lautenbacher <jens@metrix.de>
Date: 28 Feb 1997 00:58:50 +0100
In-Reply-To: Jens Lautenbacher's message of 28 Feb 1997 00:55:12 +0100
Message-ID: <m3hgixx0lh.fsf@jens.metrix.de>
Lines: 55
X-Mailer: Gnus v5.4.15/XEmacs 19.15

--Multipart_Fri_Feb_28_00:58:50_1997-1
Content-Type: text/plain; charset=US-ASCII

Jens Lautenbacher <jens@metrix.de> writes:
 
> It's late and I'm confused...
> 
>      JTL

Oh yes I am... here's the patch.


--Multipart_Fri_Feb_28_00:58:50_1997-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="tshell.patch"
Content-Transfer-Encoding: 7bit

*** tshell.el.orig	Fri Feb 28 00:40:04 1997
--- tshell.el	Fri Feb 28 00:41:08 1997
***************
*** 258,271 ****
         (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)))
  
  (defvar tshell-mode-hook '()
    "*Hook for customising Tshell mode.")
--- 258,274 ----
         (define-key tshell-mode-map "\t" 'term-dynamic-complete)
         (define-key tshell-mode-map "\M-?"
  	 'term-dynamic-list-filename-completions)
! ;;; 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.")

--Multipart_Fri_Feb_28_00:58:50_1997-1--

