Mercurial > emacs
changeset 1331:dd2c33afcef2
(insert-buffer): Before reading arg, barf if read-only.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 04 Oct 1992 03:46:01 +0000 |
| parents | ab73b8d8243c |
| children | 955ebdb98095 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)