 (defvar rdebug-secondary-window-help-mode-map
   (let ((map (make-sparse-keymap)))
     (suppress-keymap map)
-    (rdebug-secondary-buffer-populate-map map)
+    (rdebug-populate-secondary-buffer-map map)
     map))
 
 (defun rdebug-secondary-window-help-mode ()

(defvar rdebug-output-mode-map
  (let ((map (make-sparse-keymap)))
    (suppress-keymap map)
    (rdebug-secondary-buffer-populate-map map)
    map))

(defun rdebug-output-mode ()

  (setq rdebug-window-configuration-state state))


;; -- Common key support.

(defun rdebug-populate-common-keys (map)
  "Define the keys that are used by all debugger windows, even by the source."
  ;; TODO: Redirect to different variants (or none).
  (rdebug-populate-common-keys-standard map))


(defun rdebug-populate-common-keys-standard (map)
  "The key layout used by many debuggers."
  (define-key map [f5]    'gud-cont)
  (define-key map [S-f5]  'rdebug-quit)
  (define-key map [f9]    'gud-break)
  (define-key map [f10]   'gud-next)
  (define-key map [f11]   'gud-step)
  (define-key map [S-f11] 'gud-finish))


;; -- The debugger

;;;###autoload
(defun rdebug (command-line)
  "Run rdebug on program FILE in buffer *rdebug-cmd-FILE*.
