The following example illustrates how text might be copied between buffers. First,
string
is set to all the text in
from-buf
. This text is then copied to the end of
to-buf
.
(defun copy-string (from-buf to-buf)
(let ((string (editor:points-to-string
(editor:buffers-start from-buf)
(editor:buffers-end from-buf))))
(editor:insert-string (editor:buffers-end to-buf) string)))
To test this example, two buffers named
t1
and
t2
should be created. Then, to copy all the text from
t1
to the end of
t2
:
(copy-string (editor:buffer-from-name "t1")
(editor:buffer-from-name "t2"))