(defun vss-run-script ()
;; TODO set-buffer in other window
  (interactive)
  (setq bname
	(get-buffer-create *vss-buffer-name*))
  (display-buffer bname)
  (set-buffer bname)
  
  (delete-region (point-min) (point-max))

  (setq buffer-read-only nil)
  (setq directory default-directory)

  (cd (concat vss-sw-media "/media/core/h264/enc/mpu/test")) ; XXX
  ;; FIXME
  (call-process (concat vss-sw-media "/media/core/h264/enc/mpu/test/script.sh") nil bname t)

  (cd directory))


(global-set-key (kbd "<f5>") 'vss-run-script)