From 6a3b1aaa066dac28355ca5d09550947250108950 Mon Sep 17 00:00:00 2001 From: Alex Branham Date: Sat, 23 Feb 2019 07:35:01 -0600 Subject: [PATCH] * lisp/comint.el (comint-skip-input): Set inhibit-read-only to t Bug#33975 --- lisp/comint.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 0a6aff2e73f..a51413dc655 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -2536,13 +2536,16 @@ Useful if you accidentally suspend the top-level process." (defun comint-skip-input () "Skip all pending input, from last stuff output by interpreter to point. -This means mark it as if it had been sent as input, without sending it." +This means mark it as if it had been sent as input, without +sending it. The command keys used to trigger the command that +called this function are inserted into the buffer." (let ((comint-input-sender 'ignore) (comint-input-filter-functions nil)) (comint-send-input t t)) (end-of-line) (let ((pos (point)) - (marker (process-mark (get-buffer-process (current-buffer))))) + (marker (process-mark (get-buffer-process (current-buffer)))) + (inhibit-read-only t)) (insert " " (key-description (this-command-keys))) (if (= marker pos) (set-marker marker (point))))) -- 2.39.2