Commit 58ff020d authored by Richard M. Stallman's avatar Richard M. Stallman

(insert-buffer): Before reading arg, barf if read-only.

parent af36339a
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment