 ;; -- stack
 
 (defvar rdebug-frames-mode-map
-  (let ((map (make-sparse-keymap))
-	(rdebug-common-map (make-sparse-keymap)))
+  (let ((map (make-sparse-keymap)))
     (define-key map [mouse-1] 'rdebug-goto-stack-frame-mouse)
     (define-key map [mouse-2] 'rdebug-goto-stack-frame-mouse)
     (define-key map [mouse-3] 'rdebug-goto-stack-frame-mouse)

  (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
    (rdebug-populate-common-keys map)
    (rdebug-populate-debugger-menu map)))


(defun rdebug-display-breakpoints-buffer ()

;; -- variables

(defvar rdebug-variables-mode-map
  (let ((map (make-sparse-keymap)))
    (suppress-keymap map)
    (define-key map "\r" 'rdebug-variables-edit)
    (define-key map "e" 'rdebug-edit-variables-value)
    (define-key map [mouse-2] 'rdebug-variables-edit-mouse)
    (define-key map [mouse-3] 'rdebug-variables-edit-mouse)
    (rdebug-populate-secondary-buffer-map map)

    ;; --------------------
    ;; The "Variables window" submeny.
