Fix how `shell-mode' avoids being called interactively

* lisp/shell.el (shell-mode): Make noninteractive instead of
erroring out after being called.
This commit is contained in:
Lars Ingebrigtsen 2021-02-14 12:52:00 +01:00
parent 43ecde8578
commit 8d517daf77

View file

@ -556,8 +556,7 @@ Variables `comint-output-filter-functions', a hook, and
`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
buffer."
(when (called-interactively-p 'any)
(error "Can't be called interactively; did you mean `shell-script-mode' instead?"))
:interactive nil
(setq comint-prompt-regexp shell-prompt-pattern)
(shell-completion-vars)
(setq-local paragraph-separate "\\'")