diff options
| author | Richard M. Stallman | 1992-10-04 03:46:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1992-10-04 03:46:01 +0000 |
| commit | 58ff020d725b2ded734ea4e12edf3edbb90b5299 (patch) | |
| tree | 98339a2441e13ceef9cc0d8b42121e1309ccc1c0 /lisp/simple.el | |
| parent | af36339a347da5641eb79f33507d43b8543b4169 (diff) | |
| download | emacs-58ff020d725b2ded734ea4e12edf3edbb90b5299.tar.gz emacs-58ff020d725b2ded734ea4e12edf3edbb90b5299.zip | |
(insert-buffer): Before reading arg, barf if read-only.
Diffstat (limited to 'lisp/simple.el')
| -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)." | |||
| 1057 | "Insert after point the contents of BUFFER. | 1057 | "Insert after point the contents of BUFFER. |
| 1058 | Puts mark after the inserted text. | 1058 | Puts mark after the inserted text. |
| 1059 | BUFFER may be a buffer or a buffer name." | 1059 | BUFFER may be a buffer or a buffer name." |
| 1060 | (interactive (list (read-buffer "Insert buffer: " (other-buffer) t))) | 1060 | (interactive (list (progn (barf-if-buffer-read-only) |
| 1061 | (read-buffer "Insert buffer: " (other-buffer) t)))) | ||
| 1061 | (or (bufferp buffer) | 1062 | (or (bufferp buffer) |
| 1062 | (setq buffer (get-buffer buffer))) | 1063 | (setq buffer (get-buffer buffer))) |
| 1063 | (let (start end newmark) | 1064 | (let (start end newmark) |