 
 ;; Constants
 
-(defconst rdebug-position-re 
+(defconst rdebug-position-re
   "\\(\\)\\([-a-zA-Z0-9_/.]*\\):\\([0-9]+\\)"
   "Regular expression for a rdebug position")
 

  (define-key map "+" 'gud-step-plus)
  (define-key map "<" 'gud-up)
  (define-key map ">" 'gud-down)
  ; (define-key map "a" 'gud-args)
  ; (define-key map "b" 'gud-break)
  (define-key map "c" 'gud-cont)
  ; (define-key map "d" 'gud-remove)
  (define-key map "f" 'gud-finish)
  (define-key map "n" 'gud-next)
  (define-key map "p" 'gud-print)
  (define-key map "q" 'rdebug-quit)
  (define-key map "r" 'gud-run)
  (define-key map "s" 'gud-step)
  ;(define-key map "t" 'gud-tbreak)
  ;; Returns the menu.
  (if no-menu
      nil

(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) (flag))
        (rdebug-breakpoints-mode)
        (set (make-local-variable 'gud-comint-buffer) comint-buffer)
        (goto-char (point-min))
        (while (not (eobp))
          (let ((b (line-beginning-position)) (e (line-end-position)))
            (when (string-match rdebug--breakpoint-regexp
                                (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))
