(let ((p (start-process "bash" (get-buffer "*scratch*") "bash")))
  (set-marker (process-mark p) (point))
  (set-process-buffer p (current-buffer))
  (marker-position (process-mark p)))

(message "hello there!")