diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-12 14:15:12 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-12 14:15:12 +0200 |
commit | 3b7315d011316ebb962c42df48bfa268207005ea (patch) | |
tree | 2b9c814c58f6ead8b5d9274e60550127c7d634c6 | |
parent | 9c248f4cd903d4b1f3b792d5e80620643921b77c (diff) | |
download | emacs-3b7315d011316ebb962c42df48bfa268207005ea.tar.gz |
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).
-rw-r--r-- | lisp/cmuscheme.el | 1 |
1 files changed, 1 insertions, 0 deletions
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 *\\'" |