changeset 55123:a27729919ff1

(comint-delete-output): Bind inhibit-read-only to t.
author Luc Teirlinck <teirllm@auburn.edu>
date Sat, 24 Apr 2004 23:06:03 +0000
parents bf1ca40a24b8
children ff3536099b37
files lisp/comint.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/comint.el	Sat Apr 24 22:58:40 2004 +0000
+++ b/lisp/comint.el	Sat Apr 24 23:06:03 2004 +0000
@@ -2006,7 +2006,8 @@
 Does not delete the prompt."
   (interactive)
   (let ((proc (get-buffer-process (current-buffer)))
-	(replacement nil))
+	(replacement nil)
+	(inhibit-read-only t))
     (save-excursion
       (let ((pmark (progn (goto-char (process-mark proc))
 			  (forward-line 0)