Subject: (defun insert-in-current-buffer()..)