# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1052850646 0
# Node ID 379cf00d70162cf153982be041e5e1d24822adb7
# Parent  c1e6923f4f9b4580e38e12fa2a1a59f8c3d43229
(comint-carriage-motion, comint-output-filter):
Bind inhibit-read-only rather than buffer-read-only.
(comint-truncate-buffer): Bind inhibit-read-only.

diff -r c1e6923f4f9b -r 379cf00d7016 lisp/comint.el
--- a/lisp/comint.el	Tue May 13 15:22:39 2003 +0000
+++ b/lisp/comint.el	Tue May 13 18:30:46 2003 +0000
@@ -1,6 +1,6 @@
 ;;; comint.el --- general command interpreter in a window stuff
 
-;; Copyright (C) 1988, 90, 92, 93, 94, 95, 96, 97, 98, 99, 2000, 2001, 2002
+;; Copyright (C) 1988,90,92,93,94,95,96,97,98,99,2000,01,02,2003
 ;;	Free Software Foundation, Inc.
 
 ;; Author: Olin Shivers <shivers@cs.cmu.edu>
@@ -682,8 +682,7 @@
 Blasts any old process running in the buffer.  Doesn't set the buffer mode.
 You can use this to cheaply run a series of processes in the same comint
 buffer.  The hook `comint-exec-hook' is run after each exec."
-  (save-excursion
-    (set-buffer buffer)
+  (with-current-buffer buffer
     (let ((proc (get-buffer-process buffer)))	; Blast any old process.
       (if proc (delete-process proc)))
     ;; Crank up a new process
@@ -1562,7 +1561,7 @@
 	(save-restriction
 	  (widen)
 	  (let ((inhibit-field-text-motion t)
-		(buffer-read-only nil))
+		(inhibit-read-only t))
 	    ;; CR LF -> LF
 	    ;; Note that this won't work properly when the CR and LF
 	    ;; are in different output chunks, but this is probably an
@@ -1601,7 +1600,7 @@
 	    (setq functions (cdr functions))))
 
 	;; Insert STRING
-	(let ((buffer-read-only nil)
+	(let ((inhibit-read-only t)
 	      ;; Avoid the overhead of save-excursion, since we just
 	      ;; fiddle with the point
 	      (saved-point (point-marker)))
@@ -1772,7 +1771,8 @@
     (goto-char (process-mark (get-buffer-process (current-buffer))))
     (forward-line (- comint-buffer-maximum-size))
     (beginning-of-line)
-    (delete-region (point-min) (point))))
+    (let ((inhibit-read-only t))
+      (delete-region (point-min) (point)))))
 
 (defun comint-strip-ctrl-m (&optional string)
   "Strip trailing `^M' characters from the current output group.