 		   (+ 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 -->
+	;; remove initial '   '  or '-->'
 	(beginning-of-line)
 	(delete-char 3)
         (forward-line)

    (gud-def gud-where   "where"
	     "T" "Show stack trace.")
    (local-set-key "\C-i" 'gud-gdb-complete-command)
    (setq comint-prompt-regexp "^(rdb:-) ")
    (setq paragraph-start comint-prompt-regexp)
    
    ;; Update GUD menu bar
    (define-key gud-menu-map [args]      '("Show arguments of current stack" . 

  "Keymap to navigate rdebug stack frames.")

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

(defun rdebug--setup-stack-buffer (buf)
