mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases 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
Show Stats 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)