comparison lisp/eterm/tshell.el @ 26:441bb1e64a06 r19-15b96

Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
256 (define-key tshell-mode-map "\C-c\C-f" 'tshell-forward-command) 256 (define-key tshell-mode-map "\C-c\C-f" 'tshell-forward-command)
257 (define-key tshell-mode-map "\C-c\C-b" 'tshell-backward-command) 257 (define-key tshell-mode-map "\C-c\C-b" 'tshell-backward-command)
258 (define-key tshell-mode-map "\t" 'term-dynamic-complete) 258 (define-key tshell-mode-map "\t" 'term-dynamic-complete)
259 (define-key tshell-mode-map "\M-?" 259 (define-key tshell-mode-map "\M-?"
260 'term-dynamic-list-filename-completions) 260 'term-dynamic-list-filename-completions)
261 (define-key-after (lookup-key tshell-mode-map [menu-bar completion]) 261 ;;; XEmacs change [JTL]: We don't have define-key-after
262 [complete-env-variable] '("Complete Env. Variable Name" . 262 ;;; (and we don't need it ...)
263 tshell-dynamic-complete-environment-variable) 263 ;;; (define-key-after (lookup-key tshell-mode-map [menu-bar completion])
264 'complete-file) 264 ;;; [complete-env-variable] '("Complete Env. Variable Name" .
265 (define-key-after (lookup-key tshell-mode-map [menu-bar completion]) 265 ;;; tshell-dynamic-complete-environment-variable)
266 [expand-directory] '("Expand Directory Reference" . 266 ;;; 'complete-file)
267 tshell-replace-by-expanded-directory) 267 ;;; (define-key-after (lookup-key tshell-mode-map [menu-bar completion])
268 'complete-expand))) 268 ;;; [expand-directory] '("Expand Directory Reference" .
269 ;;; tshell-replace-by-expanded-directory)
270 ;;; 'complete-expand)
271 ))
269 272
270 (defvar tshell-mode-hook '() 273 (defvar tshell-mode-hook '()
271 "*Hook for customising Tshell mode.") 274 "*Hook for customising Tshell mode.")
272 275
273 276