          (string-to-number (substring s (match-beginning 2) (match-end 2))))
         ))))
 
-;;; (defun rdebug-toggle-breakpoint (pt)
-;;;   "Toggles the breakpoint at PT in the breakpoints buffer."
-;;;   (interactive "d")
-;;;   (save-excursion
-;;;     (goto-char pt)
-;;;     (let ((s (buffer-substring (line-beginning-position) (line-end-position))))
-;;;       (when (string-match rdebug--breakpoint-regexp s)
-;;;         (let* ((enabled
-;;;                 (string= (substring s (match-beginning 3) (match-end 3)) "y"))
-;;;                (cmd (if enabled "disable" "enable"))
-;;;                (bpnum (substring s (match-beginning 1) (match-end 1))))
-;;;           (gud-call (format "%s %s" cmd bpnum)))))))
+(defun rdebug-toggle-breakpoint (pt)
+  "Toggles the breakpoint at PT in the breakpoints buffer."
+  (interactive "d")
+  (save-excursion
+    (goto-char pt)
+    (let ((s (buffer-substring (line-beginning-position) (line-end-position))))
+      (when (string-match rdebug--breakpoint-regexp s)
+        (let* ((enabled
+                (string= (substring s (match-beginning 2) (match-end 2)) "y"))
+               (cmd (if enabled "disable" "enable"))
+               (bpnum (substring s (match-beginning 1) (match-end 1))))
+          (gud-call (format "%s breakpoint %s" cmd bpnum)))))))
 
 (defun rdebug-delete-breakpoint (pt)
   "Deletes the breakpoint at PT in the breakpoints buffer."


(defun rdebug-process-sentinel (process event)
  "Restore the original window configuration when the debugger process exits."
  (rdebug-debug-enter "rdebug-process-sentinel"
    (rdebug-debug-message "status=%S event=%S state=%S\n"
                          (process-status process)

    (define-key menu [quit] '("Quit"   . rdebug-delete-frame-or-window))
    (define-key menu [goto] '("Goto"   . rdebug-goto-breakpoint))
    (define-key menu [delete] '("Delete" . rdebug-delete-breakpoint))
    (define-key menu [toggle] '("Toggle" . rdebug-toggle-breakpoint))
    (define-key map [mouse-2] 'rdebug-goto-breakpoint-mouse)
    (define-key map " " 'rdebug-toggle-breakpoint)
    (define-key map [? ] 'rdebug-toggle-breakpoint)
    (define-key map [(control m)] 'rdebug-goto-breakpoint)
    (define-key map [?d] 'rdebug-delete-breakpoint)
    map)
