               (let ((buf (get-buffer-create name)))
                 (save-excursion
                   (set-buffer buf)
+                  (comint-mode)
                   (setq ros-launch-path path)
                   (setq ros-launch-filename dir-suffix)
                   (ros-launch-mode 1)

  (setq page-delimiter "SUMMARY")
  )



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Event buffer

(require 'cl)
(require 'warnings)
(require 'time-stamp)
(require 'ansi-color)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Parameters
