 
 
 (defmacro rdebug-debug-enter (str &rest body)
+  (declare (indent 1) (debug t))
   `(progn
      (rdebug-debug-message "--> %s\n" ,str)
      (setq rdebug-debug-depth (+ rdebug-debug-depth 1))

  :type 'boolean
  :group 'rdebug)

(defgroup rdebugtrack nil
  "Rdebug file tracking by watching the prompt."
  :prefix "rdebugtrack"

   (list (gud-query-cmdline 'rdebug)))

  (rdebug-debug-enter "rdebug"
  (if (eq rdebug-frame-configuration-state 'original)
      (setq rdebug-original-frame-configuration (current-frame-configuration)))
  (setq rdebug-frame-configuration-state 'debugger)
  ; Parse the command line and pick out the script name and whether --annotate
  ; has been set.
  (let* ((words (split-string-and-unquote command-line))
