           (set-process-sentinel process
                                 'rdebug-process-sentinel)))
 
-      ;; This opens up "Gud" menu, which isn't used since we've got our
-      ;; own "Debugger" menu.
-
-      ;; (set (make-local-variable 'gud-minor-mode) 'rdebug)
-
-      (gud-def gud-args   "info args" "a"
-               "Show arguments of current stack.")
-      (gud-def gud-break  "break %d%f:%l""\C-b"
-               "Set breakpoint at current line.")
-      (gud-def gud-cont   "continue"   "\C-r"
-               "Continue with display.")
-      (gud-def gud-down   "down %p"     ">"
-               "Down N stack frames (numeric arg).")
-      (gud-def gud-finish "finish"      "\C-f"
-               "Finish executing current function.")
-      (gud-def gud-next   "next %p"     "\C-n"
-               "Step one line (skip functions).")
-      (gud-def gud-print  "p %e"        "\C-p"
-               "Evaluate Ruby expression at point.")
-      (gud-def gud-source-resync "up 0" "\C-l"
-               "Show current source window")
-      (gud-def gud-remove "clear %d%f:%l" "\C-d"
-               "Remove breakpoint at current line")
-      (gud-def gud-quit    "quit"       "Q"
-               "Quit debugger.")
-      (gud-def gud-run    "restart"       "R"
-               "Restart the Ruby script.")
-      (gud-def gud-statement "eval %e" "\C-e"
-               "Execute Ruby statement at point.")
-      (gud-def gud-step   "step %p"       "\C-s"
-               "Step one source line with display.")
-      (gud-def gud-step-plus "step+ %p"       "+"
-               "Step one source line with display.")
-      (gud-def gud-tbreak "tbreak %d%f:%l"  "\C-t"
-               "Set temporary breakpoint at current line.")
-      (gud-def gud-up     "up %p"
-               "<" "Up N stack frames (numeric arg).")
-      (gud-def gud-where   "where"
-               "T" "Show stack trace.")
-      (local-set-key "\C-i" 'gud-gdb-complete-command)
 
       ;; Add the buffer-displaying commands to the Gud buffer,
       (let ((prefix-map (make-sparse-keymap)))


      (setcdr (assq 'rdebug-debugger-support-minor-mode minor-mode-map-alist)
              rdebug-debugger-support-minor-mode-map-when-active)
      (when rdebug-many-windows (rdebug-setup-windows-initially))

      (run-hooks 'rdebug-mode-hook))))


(defun rdebug-quit ()

  "Populate the Rdebug 'Debugger' menu."
  (let ((menu (make-sparse-keymap))
        (common-map (make-sparse-keymap)))
    ;; Use a simple common map to find the best key sequence to
    ;; display in menu.
    (rdebug-populate-common-keys common-map)

    (define-key map [menu-bar debugger] (cons "Debugger" menu))

    (define-key menu [break-delete]
      (rdebug-menu-item common-map "Delete breakpoint" 'gud-remove
                        :enable '(get-buffer-process gud-comint-buffer)))

    (define-key menu [break]
      (rdebug-menu-item common-map "Set breakpoint" 'gud-break
                        :enable '(get-buffer-process gud-comint-buffer)))

    (define-key menu [finish]
      (rdebug-menu-item common-map "Step out" 'gud-finish
                        :enable '(get-buffer-process gud-comint-buffer)))

    (define-key menu [step]
      (rdebug-menu-item common-map "Step into" 'gud-step
                        :enable '(get-buffer-process gud-comint-buffer)))

    (define-key menu [next]
      (rdebug-menu-item common-map "Step over" 'gud-next
                        :enable '(get-buffer-process gud-comint-buffer)))

    (define-key menu [cont]
      (rdebug-menu-item common-map "Continue" 'gud-cont
                        :enable '(get-buffer-process gud-comint-buffer)))

    (define-key map [menu-bar debugger line1] '(menu-item "--"))

    (define-key menu [stop]
      (rdebug-menu-item
       common-map "Stop the debugger" 'rdebug-quit
       :enable '(get-buffer-process gud-comint-buffer)))

    (define-key menu [start]
      (rdebug-menu-item common-map "Start the debugger" 'rdebug))

    (define-key map [menu-bar debugger line2] '(menu-item "--"))

    ;; Placeholder used when populating the menu of the secondary buffers.
    (define-key menu [placeholder] nil)

    ;; --------------------
