(shell-command, shell-command-on-region):

Make "*Shell Command Output*" non-read-only.

diff --git a/lisp/simple.el b/lisp/simple.el
index 0ced4f6787dfca30593e61f85a2ff92e5367c91c..7d46eede3af415b4fd647605884dd1a07be24f64 100644 (file)
--- 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