From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 14 Feb 2021 11:52:00 +0000 (+0100)
Subject: Fix how `shell-mode' avoids being called interactively
X-Git-Tag: emacs-28.0.90~3754
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8d517daf770e8c6bd05e040b3bd3402626dbd9ef;p=emacs.git

Fix how `shell-mode' avoids being called interactively

* lisp/shell.el (shell-mode): Make noninteractive instead of
erroring out after being called.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index 9238ad1e8a0..53f5d0b6f1c 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -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 "\\'")