From: Richard M. Stallman Date: Sun, 9 Jan 1994 17:11:57 +0000 (+0000) Subject: (shell-input-autoexpand): New variable. X-Git-Tag: emacs-19.34~10313 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f99443b8efec92c98f73c3723e80663db8a4fcf;p=emacs.git (shell-input-autoexpand): New variable. (shell-mode): Set comint-input-autoexpand. (shell-mode): Don't call shell-dirstack-message. --- diff --git a/lisp/shell.el b/lisp/shell.el index 18fd50f822d..05179863d94 100644 --- a/lisp/shell.el +++ b/lisp/shell.el @@ -205,6 +205,18 @@ This mirrors the optional behavior of tcsh.") "*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 @@ cause the window to scroll to the end of the buffer." (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 @@ cause the window to scroll to the end of the buffer." ((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 ()