   ))
 ;)
 
+
+(defun rdebug-quit ()
+  "Kill current debugger process.
+
+When `rdebug-many-windows' is active, this also restores the original
+window layout."
+  (interactive)
+  (let ((proc (get-buffer-process gud-comint-buffer)))
+    (if proc
+        (kill-process proc))))
+
  
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    (define-key map [mouse-2] 'rdebug-variables-edit-mouse)
    (define-key map [mouse-3] 'rdebug-variables-edit-mouse)
    (define-key map "q" 'kill-this-buffer)
    (rdebug-secondary-buffer-populate-map map)
     map))

(defun rdebug-variables-mode ()

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

(defun rdebug-secondary-window-help-mode ()
