# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1082847963 0
# Node ID a27729919ff197780d4954cc14034a03006cec2e
# Parent  bf1ca40a24b8aea11aa502baa97fdaee0125f972
(comint-delete-output): Bind inhibit-read-only to t.

diff -r bf1ca40a24b8 -r a27729919ff1 lisp/comint.el
--- 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)