From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 23 Aug 2019 00:57:07 +0000 (-0700)
Subject: Signal an error on `M-x shell-mode'
X-Git-Tag: emacs-27.0.90~1328^2~125
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d08f7c41241e78b88bc2aaaa2dd323ce7512ae94;p=emacs.git

Signal an error on `M-x shell-mode'

* lisp/shell.el (shell-mode): This mode can't usefully be called
interactively (and is somewhat destructive, as it disables
`undo'), and it's usually confused with `shell-script-mode'
(bug#19812).  So signal an error if it's used interactively.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index 2914d1d2c81..ba7515e7bad 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -553,6 +553,8 @@ 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?"))
   (setq comint-prompt-regexp shell-prompt-pattern)
   (shell-completion-vars)
   (setq-local paragraph-separate "\\'")