 		(setq gud-marker-acc
 		      (concat (substring gud-marker-acc 0 s)
 			      (substring gud-marker-acc end2))))
-	    ;; otherwise, save the partial annotation to a temporary, and re-add
-	    ;; it to gud-marker-acc after normal output has been processed
+	    ;; otherwise, save the partial annotation to a temporary,
+	    ;; and re-add it to gud-marker-acc after normal output has
+	    ;; been processed
 	    (setq tmp (substring gud-marker-acc s))
 	    (setq gud-marker-acc (substring gud-marker-acc 0 s)))))
 
       (when (setq s (string-match rdebug-annotation-end-regexp gud-marker-acc))
-	;; save the beginning of gud-marker-acc to tmp, remove it and restore it
-	;; after normal output has been processed
+	;; save the beginning of gud-marker-acc to tmp, remove it and
+	;; restore it after normal output has been processed
 	(setq tmp (substring gud-marker-acc 0 s))
 	(setq gud-marker-acc (substring gud-marker-acc s)))
 

;; beginning of a marker, we save it here between calls to the
;; filter.
(defun gud-rdebug-marker-filter (string)
  (rdebug-debug-enter "gud-rdebug-marker-filter"
    (rdebug-debug-message "GOT: %S" string)
    (setq gud-marker-acc (concat gud-marker-acc string))

                    (forward-line)))))))))))

(defun rdebugtrack-get-source-buffer (block-str)
  "Return line and buffer of code indicated by block-str's traceback text.

We look first to visit the file indicated in the trace.

