Mercurial > emacs
comparison lisp/comint.el @ 4983:3be990e478dc
Comment change.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 11 Nov 1993 10:05:51 +0000 |
| parents | 4b50104fbdec |
| children | a4e67bc41cfa |
comparison
equal
deleted
inserted
replaced
| 4982:36b78ccd6285 | 4983:3be990e478dc |
|---|---|
| 2039 ;;; comint-get-old-input) that need to be different from the defaults. Call | 2039 ;;; comint-get-old-input) that need to be different from the defaults. Call |
| 2040 ;;; foo-mode-hook, and you're done. Don't run the comint-mode hook yourself; | 2040 ;;; foo-mode-hook, and you're done. Don't run the comint-mode hook yourself; |
| 2041 ;;; comint-mode will take care of it. The following example, from shell.el, | 2041 ;;; comint-mode will take care of it. The following example, from shell.el, |
| 2042 ;;; is typical: | 2042 ;;; is typical: |
| 2043 ;;; | 2043 ;;; |
| 2044 ;;; (defvar shell-mode-map '()) | |
| 2045 ;;; (cond ((not shell-mode-map) | |
| 2046 ;;; (setq shell-mode-map (full-copy-sparse-keymap comint-mode-map)) | |
| 2047 ;;; (define-key shell-mode-map "\C-c\C-f" 'shell-forward-command) | |
| 2048 ;;; (define-key shell-mode-map "\C-c\C-b" 'shell-backward-command) | |
| 2049 ;;; (define-key shell-mode-map "\t" 'comint-dynamic-complete) | |
| 2050 ;;; (define-key shell-mode-map "\M-?" | |
| 2051 ;;; 'comint-dynamic-list-filename-completions))) | |
| 2052 ;;; | |
| 2044 ;;; (defun shell-mode () | 2053 ;;; (defun shell-mode () |
| 2045 ;;; (interactive) | 2054 ;;; (interactive) |
| 2046 ;;; (comint-mode) | 2055 ;;; (comint-mode) |
| 2047 ;;; (setq comint-prompt-regexp shell-prompt-pattern) | 2056 ;;; (setq comint-prompt-regexp shell-prompt-pattern) |
| 2048 ;;; (setq major-mode 'shell-mode) | 2057 ;;; (setq major-mode 'shell-mode) |
| 2049 ;;; (setq mode-name "Shell") | 2058 ;;; (setq mode-name "Shell") |
| 2050 ;;; (cond ((not shell-mode-map) | |
| 2051 ;;; (setq shell-mode-map (full-copy-sparse-keymap comint-mode-map)) | |
| 2052 ;;; (define-key shell-mode-map "\M-\t" 'comint-dynamic-complete) | |
| 2053 ;;; (define-key shell-mode-map "\M-?" | |
| 2054 ;;; 'comint-dynamic-list-filename-completions))) | |
| 2055 ;;; (use-local-map shell-mode-map) | 2059 ;;; (use-local-map shell-mode-map) |
| 2056 ;;; (make-local-variable 'shell-directory-stack) | 2060 ;;; (make-local-variable 'shell-directory-stack) |
| 2057 ;;; (setq shell-directory-stack nil) | 2061 ;;; (setq shell-directory-stack nil) |
| 2058 ;;; (setq comint-input-sentinel 'shell-directory-tracker) | 2062 ;;; (setq comint-input-sentinel 'shell-directory-tracker) |
| 2059 ;;; (run-hooks 'shell-mode-hook)) | 2063 ;;; (run-hooks 'shell-mode-hook)) |