[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 6a3b1aa: * lisp/comint.el (comint-skip-input): Set
From: |
Alex Branham |
Subject: |
[Emacs-diffs] master 6a3b1aa: * lisp/comint.el (comint-skip-input): Set inhibit-read-only to t |
Date: |
Sun, 24 Feb 2019 20:11:02 -0500 (EST) |
branch: master
commit 6a3b1aaa066dac28355ca5d09550947250108950
Author: Alex Branham <address@hidden>
Commit: Alex Branham <address@hidden>
* 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 0a6aff2..a51413d 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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 6a3b1aa: * lisp/comint.el (comint-skip-input): Set inhibit-read-only to t,
Alex Branham <=