 This function is designed to be added to hooks, for example:
   (add-hook 'comint-mode-hook 'turn-on-rdebugtrack-mode)"
   (interactive)
-  (rdebugtrack-mode 1)
-)
+  (rdebugtrack-mode 1))
 
 (defun turn-off-rdebugtrack ()
   (interactive)
   (setq rdebugtrack-is-tracking-p nil)
   (rdebugtrack-toggle-stack-tracking 0)
-  (remove-hook 'comint-output-filter-functions 
+  (remove-hook 'comint-output-filter-functions
 	       'rdebugtrack-track-stack-file))
 
 ;; rdebugtrack

  (setq buffer-read-only t)
  (set (make-local-variable 'rdebug-secondary-buffer) t)
  (run-mode-hooks 'rdebug-breakpoints-mode-hook)
  ;(if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
  ;    'gdb-invalidate-breakpoints
  ;  'gdbmi-invalidate-breakpoints)
)

(defconst rdebug--breakpoint-regexp
  "^\\ +\\([0-9]+\\) \\([yn]\\) +at +\\(.+\\):\\([0-9]+\\)$"

  "Layout the window pattern for `rdebug-many-windows'. This was mostly copied
from `gdb-setup-windows', but simplified."
  (rdebug-debug-enter "rdebug-setup-windows"
    (rdebug-set-window-configuration-state 'debugger t)
    (pop-to-buffer gud-comint-buffer)
    (rdebug-process-annotation "help" "")
    (let ((buf
           (cond (gud-last-last-frame
                  (gud-find-file (car gud-last-last-frame)))
                 (gud-target-name
                  (gud-find-file gud-target-name))
                 (t
                  ;; Put buffer list in window if we
                  ;; can't find a source file.
                  (list-buffers-noselect)))))
      (funcall rdebug-window-layout-function buf gud-target-name))))


(defun rdebug-setup-windows-initially ()
