mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1992-10-04 03:46:01 +00:00
parent af36339a34
commit 58ff020d72
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/simple.el
View file

@ -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)