From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 24 Sep 1994 04:52:10 +0000 (+0000)
Subject: (shell-command, shell-command-on-region):
X-Git-Tag: emacs-19.34~6789
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a9594ce3b1a68ed4ab825cba983fe8019d90f1e8;p=emacs.git

(shell-command, shell-command-on-region):
Make "*Shell Command Output*" non-read-only.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 0ced4f6787d..7d46eede3af 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -701,6 +701,7 @@ This cannot be done asynchronously."
 		      (error "Shell command in progress")))
 		(save-excursion
 		  (set-buffer buffer)
+		  (setq buffer-read-only nil)
 		  (erase-buffer)
 		  (display-buffer buffer)
 		  (setq default-directory directory)
@@ -788,7 +789,8 @@ deleted."
 	      ;; If the input is the same buffer as the output,
 	      ;; delete everything but the specified region,
 	      ;; then replace that region with the output.
-	      (progn (delete-region end (point-max))
+	      (progn (setq buffer-read-only nil)
+		     (delete-region end (point-max))
 		     (delete-region (point-min) start)
 		     (call-process-region (point-min) (point-max)
 					  shell-file-name t t nil
@@ -797,6 +799,7 @@ deleted."
 	    ;; Clear the output buffer, then run the command with output there.
 	    (save-excursion
 	      (set-buffer buffer)
+	      (setq buffer-read-only nil)
 	      (erase-buffer))
 	    (call-process-region start end shell-file-name
 				 nil buffer nil