                                 (buffer-substring b e))
               (add-text-properties b e
                                    (list 'mouse-face 'highlight
-                                         'keymap rdebug-breakpoints-mode-map))
-              (add-text-properties
-               (+ b (match-beginning 1)) (+ b (match-end 1))
-               (list 'face font-lock-constant-face
-                     'font-lock-face font-lock-constant-face))
-              (setq flag (char-after (+ b (match-beginning 2))))
-              (add-text-properties
-               (+ b (match-beginning 2)) (+ b (match-end 2))
-               (if (eq flag ?y)
-                   '(face font-lock-warning-face)
-                 '(face font-lock-type-face)))
-              (add-text-properties
-               (+ b (match-beginning 3)) (+ b (match-end 3))
-               (list 'face font-lock-comment-face
-                     'font-lock-face font-lock-comment-face))
-              (add-text-properties
-               (+ b (match-beginning 4)) (+ b (match-end 4))
-               (list 'face font-lock-constant-face
-                     'font-lock-face font-lock-constant-face))
-;;;             ;; fontify "keep/del"
-;;;             (let ((face (if (string= "keep" (buffer-substring
-;;;                                              (+ b (match-beginning 2))
-;;;                                              (+ b (match-end 2))))
-;;;                             compilation-info-face
-;;;                           compilation-warning-face)))
-;;;               (add-text-properties
-;;;                (+ b (match-beginning 2)) (+ b (match-end 2))
-;;;                (list 'face face 'font-lock-face face)))
-;;;             ;; fontify "enabled"
-;;;             (when (string= "y" (buffer-substring (+ b (match-beginning 3))
-;;;                                                  (+ b (match-end 3))))
-;;;               (add-text-properties
-;;;                (+ b (match-beginning 3)) (+ b (match-end 3))
-;;;                (list 'face compilation-error-face
-;;;                      'font-lock-face compilation-error-face)))
-              )
-            (forward-line)
-            (beginning-of-line)))
+                                         'keymap rdebug-breakpoints-mode-map)))
+            (forward-line)))
 	(goto-line old-line-number)))
     (rdebug-breakpoints-parse-and-update-cache)
     (rdebug-breakpoints-update-icons (rdebug-all-breakpoints))))

    map)
  "Keymap to navigate/set/enable rdebug breakpoints.")

(defun rdebug-breakpoints-mode ()
  "Major mode for displaying breakpoints in the `rdebug' Ruby debugger.


  (use-local-map rdebug-breakpoints-mode-map)
  (setq buffer-read-only t)
  (set (make-local-variable 'rdebug-secondary-buffer) t)
  (set (make-local-variable 'font-lock-defaults)
       '(rdebug-breakpoints-font-lock-keywords))
  (run-mode-hooks 'rdebug-breakpoints-mode-hook))


(defun rdebug--setup-breakpoints-buffer (buf comint-buffer)
  "Detects breakpoint lines and sets up keymap and mouse navigation."
  (rdebug-debug-enter "rdebug--setup-breakpoints-buffer"
    (with-current-buffer buf
      (let ((inhibit-read-only t)
	    (old-line-number (buffer-local-value 'rdebug-current-line-number
						 buf))
	    (flag))
        (rdebug-breakpoints-mode)
