Mercurial > hg > xemacs-beta
diff lisp/eterm/tshell.el @ 70:131b0175ea99 r20-0b30
Import from CVS: tag r20-0b30
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:02:59 +0200 |
| parents | 441bb1e64a06 |
| children | cf808b4c4290 |
line wrap: on
line diff
--- a/lisp/eterm/tshell.el Mon Aug 13 09:00:04 2007 +0200 +++ b/lisp/eterm/tshell.el Mon Aug 13 09:02:59 2007 +0200 @@ -258,17 +258,14 @@ (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) - )) + (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.")