# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 718170361 0
# Node ID dd2c33afcef2960f07dec6b0467b49366fe35097
# Parent  ab73b8d8243cda59b5c94b708c31ace2533254ff
(insert-buffer): Before reading arg, barf if read-only.

diff -r ab73b8d8243c -r dd2c33afcef2 lisp/simple.el
--- a/lisp/simple.el	Sat Oct 03 18:03:17 1992 +0000
+++ b/lisp/simple.el	Sun Oct 04 03:46:01 1992 +0000
@@ -1057,7 +1057,8 @@
   "Insert after point the contents of BUFFER.
 Puts mark after the inserted text.
 BUFFER may be a buffer or a buffer name."
-  (interactive (list (read-buffer "Insert buffer: " (other-buffer) t)))
+  (interactive (list (progn (barf-if-buffer-read-only)
+			    (read-buffer "Insert buffer: " (other-buffer) t))))
   (or (bufferp buffer)
       (setq buffer (get-buffer buffer)))
   (let (start end newmark)