From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 12 May 2022 12:15:12 +0000 (+0200)
Subject: Make prompt read-only in inferior-scheme-mode
X-Git-Tag: emacs-29.0.90~1910^2~756
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b7315d011316ebb962c42df48bfa268207005ea;p=emacs.git

Make prompt read-only in inferior-scheme-mode

* lisp/cmuscheme.el (inferior-scheme-mode): Make the prompt
read-only to be more consistent with other inferior modes
(bug#21118).
---

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index e64d9d28dd6..22a465f5b61 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -195,6 +195,7 @@ to continue it."
   (scheme-mode-variables)
   (setq mode-line-process '(":%s"))
   (setq comint-input-filter (function scheme-input-filter))
+  (setq-local comint-prompt-read-only t)
   (setq comint-get-old-input (function scheme-get-old-input)))
 
 (defcustom inferior-scheme-filter-regexp "\\`\\s *\\S ?\\S ?\\s *\\'"