   "Keymap to navigate rdebug stack frames.")
 
 (defconst rdebug--stack-frame-regexp
-  "^\\(-->\\|##\\|  \\) +#\\([0-9]+\\) +\\(.*\\)at line +\\([^:]+\\):\\([0-9]+\\)$"
+  "^\\(-->\\|   \\) +#\\([0-9]+\\) +\\(.*\\)at line +\\([^:]+\\):\\([0-9]+\\)$"
   "Regexp to recognize stack frame lines in rdebug stack buffers.")
 
 (defun rdebug--setup-stack-buffer (buf)

        ))))

(defun rdebug-goto-traceback-line (pt)
  "Displays the location in a source file of the selected breakpoint."
  (interactive "d")
  (save-excursion
    (goto-char pt)
    (let ((s (buffer-substring (point-at-bol) (point-at-eol))))
      (when (string-match rdebug-traceback-line-re s)
        (rdebug-display-line
         (substring s (match-beginning 1) (match-end 1))

  (interactive "d")
  (save-excursion
    (goto-char pt)
    (let ((s (concat "-->" (buffer-substring (point-at-bol) (point-at-eol)))))
      (when (string-match rdebug--stack-frame-regexp s)
        (let ((frame (substring s (match-beginning 2) (match-end 2))))
          (gud-call (concat "frame " frame)))))))
