I found it very useful to add a copy-buffer function (way faster than getting and setting)
something like that
(defun copy-buffer (bufnum-src bufnum-dst start-dst start-src nframes)
(apply #'send-message
s
(append (list "\b_gen" bufnum-dst "copy" start-dst bufnum-src start-src nframes)))
(sync s)
)
I found it very useful to add a copy-buffer function (way faster than getting and setting) something like that (defun copy-buffer (bufnum-src bufnum-dst start-dst start-src nframes) (apply #'send-message s (append (list "\b_gen" bufnum-dst "copy" start-dst bufnum-src start-src nframes))) (sync s) )