(defun split-test()
  ""
  (let (
        (win1 (selected-window))
        (win2 (split-window nil 35 'right))
        (bp (init-buffer))
       )
   (set-window-buffer win1 bp)
   ))
(split-test)