diff options
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 243b1eeb211..b3e756c780e 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1057,7 +1057,8 @@ With argument, rotate that many kills forward (or backward, if negative)." "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) |