Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
Bug#33975
This commit is contained in:
Alex Branham 2019-02-23 07:35:01 -06:00
parent 72ec233f2a
commit 6a3b1aaa06
No known key found for this signature in database
GPG key ID: 1E4227A253E99AC7
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/comint.el
View file

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