     (rdebug-debug-message "GOT: %S" string)
     (setq gud-marker-acc (concat gud-marker-acc string))
     (let ((output "") s s2 (tmp ""))
-      
+
       ;; ALB first we process the annotations (if any)
       (while (setq s (string-match rdebug-annotation-start-regexp
 				   gud-marker-acc))

		(setq overlay-arrow-position (make-marker))
		(set-marker overlay-arrow-position (point))
		(setq current-frame-point (point)))
	    (add-text-properties b e
				 (list 'mouse-face 'highlight
				       'keymap rdebug-frames-mode-map))
	    (let ((fn-str (substring s (match-beginning 3) (match-end 3)))
		  (fn-start (+ b (match-beginning 3))))
	      (if (string-match "\\([^(]+\\)(" fn-str)
		  (add-text-properties
		   (+ fn-start (match-beginning 1)) (+ fn-start (match-end 1))
		   (list 'face font-lock-function-name-face
			 'font-lock-face font-lock-function-name-face))))))
	;; remove initial '   '  or '-->'
	(beginning-of-line)
	(delete-char 3)
        (forward-line)
        (beginning-of-line))
      (when current-frame-point (goto-char current-frame-point)))
    )))

(defun rdebug-goto-stack-frame (pt)
  "Show the rdebug stack frame corresponding at PT in the rdebug stack buffer."
  (interactive "d")
  (save-excursion
    (goto-char pt)
    (let ((s (concat "-->" (buffer-substring (line-beginning-position) (line-end-position))))
	  (s2 (if (= (line-number-at-pos (line-end-position 2)) (line-number-at-pos (point-max)))
		  nil
		;else 
		  (buffer-substring (line-beginning-position 2) (line-end-position 2)))))
      (when (or (string-match rdebug--stack-frame-regexp s)
		; need to match 1st line last to get the match position right
		(and s2 (string-match rdebug--stack-frame-2nd-regexp s2)
		     (string-match rdebug--stack-frame-1st-regexp s)))
        (let ((frame (substring s (match-beginning 2) (match-end 2))))

  (define-key map "+" 'gud-step-plus)
  (define-key map "<" 'gud-up)
  (define-key map ">" 'gud-down)
  ;; (define-key map "a" 'gud-args)
  ;; (define-key map "b" 'gud-break)
  (define-key map "c" 'gud-cont)
  ;; (define-key map "d" 'gud-remove)
  (define-key map "f" 'gud-finish)
  (define-key map "n" 'gud-next)
  (define-key map "p" 'gud-print)
  (define-key map "q" 'rdebug-quit)
  (define-key map "r" 'gud-run)
  (define-key map "s" 'gud-step)
  ;; (define-key map "t" 'gud-tbreak)
  ;; Returns the menu.
  (if no-menu
      nil
