Mercurial > emacs
comparison lisp/simple.el @ 14835:eb78ddcff331
(insert-buffer): Fix typo in previous change.
author | Erik Naggum <erik@naggum.no> |
---|---|
date | Mon, 18 Mar 1996 19:32:24 +0000 |
parents | 5ae5d97727ce |
children | dd31d59ec31b |
comparison
equal
deleted
inserted
replaced
14834:5ae5d97727ce | 14835:eb78ddcff331 |
---|---|
1371 | 1371 |
1372 (defun insert-buffer (buffer) | 1372 (defun insert-buffer (buffer) |
1373 "Insert after point the contents of BUFFER. | 1373 "Insert after point the contents of BUFFER. |
1374 Puts mark after the inserted text. | 1374 Puts mark after the inserted text. |
1375 BUFFER may be a buffer or a buffer name." | 1375 BUFFER may be a buffer or a buffer name." |
1376 (interactive | 1376 (interactive |
1377 (list | 1377 (list |
1378 (progn | 1378 (progn |
1379 (barf-if-buffer-read-only) | 1379 (barf-if-buffer-read-only) |
1380 (read-buffer "Insert buffer: " | 1380 (read-buffer "Insert buffer: " |
1381 (if (eq (selected-window) (next-window (selected-window))) | 1381 (if (eq (selected-window) (next-window (selected-window))) |