mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

(shell-mode): Use define-derived-mode.

Browse Source
This commit is contained in:
Stefan Monnier 2000-11-21 21:33:45 +00:00
parent 2e1fbba4e5
commit 9f299ecba0
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/shell.el
View File

@ -337,7 +337,7 @@ Thus, this does not include the shell's current directory.")
(put 'shell-mode 'mode-class 'special) (put 'shell-mode 'mode-class 'special)
(defun shell-mode () (define-derived-mode shell-mode comint-mode "Shell"
"Major mode for interacting with an inferior shell. "Major mode for interacting with an inferior shell.
\\[comint-send-input] after the end of the process' output sends the text from \\[comint-send-input] after the end of the process' output sends the text from
the end of process to the end of the current line. the end of process to the end of the current line.
@ -389,11 +389,6 @@ Variables `comint-output-filter-functions', a hook, and
`comint-scroll-to-bottom-on-input' and `comint-scroll-to-bottom-on-output' `comint-scroll-to-bottom-on-input' and `comint-scroll-to-bottom-on-output'
control whether input and output cause the window to scroll to the end of the control whether input and output cause the window to scroll to the end of the
buffer." buffer."
(interactive)
(comint-mode)
(setq major-mode 'shell-mode)
(setq mode-name "Shell")
(use-local-map shell-mode-map)
(setq comint-prompt-regexp shell-prompt-pattern) (setq comint-prompt-regexp shell-prompt-pattern)
(setq comint-completion-fignore shell-completion-fignore) (setq comint-completion-fignore shell-completion-fignore)
(setq comint-delimiter-argument-list shell-delimiter-argument-list) (setq comint-delimiter-argument-list shell-delimiter-argument-list)
@ -438,7 +433,6 @@ buffer."
(cond ((string-equal shell "sh") "pwd") (cond ((string-equal shell "sh") "pwd")
((string-equal shell "ksh") "echo $PWD ~-") ((string-equal shell "ksh") "echo $PWD ~-")
(t "dirs")))) (t "dirs"))))
(run-hooks 'shell-mode-hook)
(comint-read-input-ring t)) (comint-read-input-ring t))
(defun shell-write-history-on-exit (process event) (defun shell-write-history-on-exit (process event)