 (define-key ros-launch-keymap "q" 'rosemacs/kill-process-buffer)
 (define-key ros-launch-keymap "r" 'rosemacs/relaunch-current-process)
 (define-key ros-launch-keymap "x" 'rosemacs/kill-and-relaunch)
+(define-key ros-launch-keymap "f" 'rosemacs/open-launch-file)
 
 
 

                buf)))
	(error "Did not find %s in the ros package list." package-name)))))


(defun rosemacs/relaunch (buf)
  (let ((proc (get-buffer-process buf)))

        (warn "Can't relaunch since process %s is still running" proc)
      (save-excursion
        (set-buffer buf)
        (erase-buffer)
        (start-process (buffer-name buf) buf "roslaunch" ros-launch-path)
        (rosemacs/add-event (format "Ros launch of %s" ros-launch-path))
        )
