 ;;    (has-action-message-suffix message-name)
 ;;    message-name))
 
+
 (defun find-ros-action (action)
   "Open definition of a ros action. If used interactively, tab completion will work."
-  (interactive (let* ((word (current-word t t))
+  (interactive (let* ((word (current-ros-word))
                       (prefix (action-message-prefix word))
                       ;; fallback if someone named message ...Goal, also add original word
                       (words (if prefix

;; Completion
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq topic-completor (dynamic-completion-table (lambda (str) (rosemacs-bsearch str ros-all-topics))))
(setq node-completor (dynamic-completion-table (lambda (str) (rosemacs-bsearch str rosemacs/nodes-vec))))
(setq ros-package-completor 

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