Mercurial > emacs
changeset 5538:9d84549e89b4
(shell-input-autoexpand): New variable.
(shell-mode): Set comint-input-autoexpand.
(shell-mode): Don't call shell-dirstack-message.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 09 Jan 1994 17:11:57 +0000 |
| parents | 899159133053 |
| children | 73389b4a4a9d |
| files | lisp/shell.el |
| diffstat | 1 files changed, 14 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/shell.el Sun Jan 09 16:38:16 1994 +0000 +++ b/lisp/shell.el Sun Jan 09 17:11:57 1994 +0000 @@ -205,6 +205,18 @@ "*Args passed to inferior shell by M-x shell, if the shell is csh. Value is a list of strings, which may be nil.") +(defvar shell-input-autoexpand 'history + "*If non-nil, expand input command history references on completion. +This mirrors the optional behavior of tcsh (its autoexpand and histlit). + +If the value is `input', then the expansion is seen on input. +If the value is `history', then the expansion is only when inserting +into the buffer's input ring. See also `comint-magic-space' and +`comint-dynamic-complete'. + +This variable supplies a default for `comint-input-autoexpand', +for Shell mode only.") + ;;; All the above vars aren't prefixed "cmushell-" to make them ;;; backwards compatible w/shell.el and old .emacs files. @@ -292,6 +304,7 @@ (make-local-variable 'shell-dirtrackp) (setq shell-dirtrackp t) (setq comint-input-sentinel 'shell-directory-tracker) + (setq comint-input-autoexpand shell-input-autoexpand) ;; shell-dependent assignments. (let ((shell (car (process-command (get-buffer-process (current-buffer)))))) (setq comint-input-ring-file-name @@ -301,8 +314,7 @@ ((string-match "ksh$" shell) "~/.sh_history") (t "~/.history"))))) (run-hooks 'shell-mode-hook) - (comint-read-input-ring t) - (shell-dirstack-message)) + (comint-read-input-ring t)) ;;;###autoload (defun shell ()