   "Queue of Makefile temp files awaiting execution.
 Currently-active file is at the head of the list.")
 
-(defvar rdebug-rdebugtrack-is-tracking-p t)
+(defvar rdebugtrack-is-tracking-p t)
 
  

  :type 'string
  :group 'rdebug)

(defgroup rdebugtrack nil
  "Rdebug file tracking by watching the prompt."
  :prefix "rdebug-rdebugtrack-"
  :group 'shell)

(defcustom rdebug-rdebugtrack-do-tracking-p nil
  "*Controls whether the rdebugtrack feature is enabled or not.
When non-nil, rdebugtrack is enabled in all comint-based buffers,
e.g. shell buffers and the *Python* buffer.  When using rdebug to debug a

  (let* ((origbuf (current-buffer))
	 (currproc (get-buffer-process origbuf)))

    (if (not (and currproc rdebugtrack-do-tracking-p))
        (rdebugtrack-overlay-arrow nil)
      ;else 
      (let* ((procmark (process-mark currproc))
	     (block-start (max comint-last-input-end
			       (- procmark rdebugtrack-track-range)))
             (block-str (buffer-substring block-start procmark))
             target target_fname target_lineno target_buffer)

        (if (not (string-match rdebugtrack-input-prompt block-str))
            (rdebugtrack-overlay-arrow nil)
	  ;else 
          
          (setq target (rdebugtrack-get-source-buffer block-str))

          (if (stringp target)
              (message "rdebugtrack: %s" target)
