Mercurial > emacs
comparison lisp/shell.el @ 5285:6c3cfa1f8188
(shell-mode): Pass t to comint-read-input-ring.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 23 Dec 1993 03:41:22 +0000 |
| parents | 220ec2f456e0 |
| children | abf0d4d01681 |
comparison
equal
deleted
inserted
replaced
| 5284:9c8749be37da | 5285:6c3cfa1f8188 |
|---|---|
| 66 ;;; m-n comint-next-input Cycle forwards | 66 ;;; m-n comint-next-input Cycle forwards |
| 67 ;;; m-r comint-previous-matching-input Previous input matching a regexp | 67 ;;; m-r comint-previous-matching-input Previous input matching a regexp |
| 68 ;;; m-R comint-previous-matching-input-from-input -"- matching input | 68 ;;; m-R comint-previous-matching-input-from-input -"- matching input |
| 69 ;;; m-s comint-next-matching-input Next input that matches | 69 ;;; m-s comint-next-matching-input Next input that matches |
| 70 ;;; m-S comint-next-matching-input-from-input -"- matching input | 70 ;;; m-S comint-next-matching-input-from-input -"- matching input |
| 71 ;;; m-c-r comint-previous-input-matching Search backwards in input history | 71 ;;; m-c-l comint-show-output Show last batch of process output |
| 72 ;;; return comint-send-input | 72 ;;; return comint-send-input |
| 73 ;;; c-a comint-bol Beginning of line; skip prompt | 73 ;;; c-a comint-bol Beginning of line; skip prompt |
| 74 ;;; c-d comint-delchar-or-maybe-eof Delete char unless at end of buff. | 74 ;;; c-d comint-delchar-or-maybe-eof Delete char unless at end of buff. |
| 75 ;;; c-c c-u comint-kill-input ^u | 75 ;;; c-c c-u comint-kill-input ^u |
| 76 ;;; c-c c-w backward-kill-word ^w | 76 ;;; c-c c-w backward-kill-word ^w |
| 299 (cond ((string-match "csh$" shell) "~/.history") | 299 (cond ((string-match "csh$" shell) "~/.history") |
| 300 ((string-match "bash$" shell) "~/.bash_history") | 300 ((string-match "bash$" shell) "~/.bash_history") |
| 301 ((string-match "ksh$" shell) "~/.sh_history") | 301 ((string-match "ksh$" shell) "~/.sh_history") |
| 302 (t "~/.history"))))) | 302 (t "~/.history"))))) |
| 303 (run-hooks 'shell-mode-hook) | 303 (run-hooks 'shell-mode-hook) |
| 304 (comint-read-input-ring) | 304 (comint-read-input-ring t) |
| 305 (shell-dirstack-message)) | 305 (shell-dirstack-message)) |
| 306 | 306 |
| 307 ;;;###autoload | 307 ;;;###autoload |
| 308 (defun shell () | 308 (defun shell () |
| 309 "Run an inferior shell, with I/O through buffer *shell*. | 309 "Run an inferior shell, with I/O through buffer *shell*. |