Mercurial > hg > xemacs-beta
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 69:804d1389bcd6 | 70:131b0175ea99 |
|---|---|
| 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 ;;; XEmacs change [JTL]: We don't have define-key-after | 261 (define-key-after (lookup-key tshell-mode-map [menu-bar completion]) |
| 262 ;;; (and we don't need it ...) | 262 [complete-env-variable] '("Complete Env. Variable Name" . |
| 263 ;;; (define-key-after (lookup-key tshell-mode-map [menu-bar completion]) | 263 tshell-dynamic-complete-environment-variable) |
| 264 ;;; [complete-env-variable] '("Complete Env. Variable Name" . | 264 'complete-file) |
| 265 ;;; tshell-dynamic-complete-environment-variable) | 265 (define-key-after (lookup-key tshell-mode-map [menu-bar completion]) |
| 266 ;;; 'complete-file) | 266 [expand-directory] '("Expand Directory Reference" . |
| 267 ;;; (define-key-after (lookup-key tshell-mode-map [menu-bar completion]) | 267 tshell-replace-by-expanded-directory) |
| 268 ;;; [expand-directory] '("Expand Directory Reference" . | 268 'complete-expand))) |
| 269 ;;; tshell-replace-by-expanded-directory) | |
| 270 ;;; 'complete-expand) | |
| 271 )) | |
| 272 | 269 |
| 273 (defvar tshell-mode-hook '() | 270 (defvar tshell-mode-hook '() |
| 274 "*Hook for customising Tshell mode.") | 271 "*Hook for customising Tshell mode.") |
| 275 | 272 |
| 276 | 273 |