From: Alex Branham <alex.branham@gmail.com>
Date: Sat, 23 Feb 2019 13:35:01 +0000 (-0600)
Subject: * lisp/comint.el (comint-skip-input): Set inhibit-read-only to t
X-Git-Tag: emacs-27.0.90~3544
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a3b1aaa066dac28355ca5d09550947250108950;p=emacs.git

* lisp/comint.el (comint-skip-input): Set inhibit-read-only to t

Bug#33975
---

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)))))