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