 (defun view-ros-message (message)
   "Open definition of a ros message in view mode.  If used interactively, tab completion will work."
   (interactive (list (ros-completing-read-message
-                      (if (current-word t t)
-                          (format "Enter message name (default %s): " (current-word t t))
-                        "Enter message name: ")
+                      "Enter message name"
                       (current-word t t))))
   (let ((max-mini-window-height 0))
     (shell-command (format "rosmsg show %s" message))))

  "Create a new buffer in which rostopic echo is done on the given topic (read interactively, with tab-completion)"
  (interactive (list (let ((word (current-word)))
                       (ros-completing-read-topic
                        (if word
                            (format "Enter topic name (default %s): " word)
                          "Enter topic name: ")
                        word))))
  (let* ((topic-full-name (if (string-match "^/" topic) topic (concat "/" topic)))
         (buffer-name (concat "*rostopic:" topic-full-name "*"))

(defun find-ros-action (action)
  "Open definition of a ros action.  If used interactively, tab completion will work."
  (interactive (list (ros-completing-read-action
                      "Enter action name"
                      (current-word t t))))
  (let* ((p+m (split-string action "/"))
         (p (if (cdr p+m)
