1299 |
(defvar gdb-breakpoints-mode-map |
(defvar gdb-breakpoints-mode-map |
1300 |
(let ((map (make-sparse-keymap)) |
(let ((map (make-sparse-keymap)) |
1301 |
(menu (make-sparse-keymap "Breakpoints"))) |
(menu (make-sparse-keymap "Breakpoints"))) |
1302 |
(define-key menu [toggle] '("Toggle" . gdb-toggle-breakpoint)) |
(define-key menu [quit] '("Quit" . kill-this-buffer)) |
|
(define-key menu [delete] '("Delete" . gdb-delete-breakpoint)) |
|
1303 |
(define-key menu [goto] '("Goto" . gdb-goto-breakpoint)) |
(define-key menu [goto] '("Goto" . gdb-goto-breakpoint)) |
1304 |
|
(define-key menu [delete] '("Delete" . gdb-delete-breakpoint)) |
1305 |
|
(define-key menu [toggle] '("Toggle" . gdb-toggle-breakpoint)) |
1306 |
(suppress-keymap map) |
(suppress-keymap map) |
1307 |
(define-key map [menu-bar breakpoints] (cons "Breakpoints" menu)) |
(define-key map [menu-bar breakpoints] (cons "Breakpoints" menu)) |
1308 |
(define-key map " " 'gdb-toggle-breakpoint) |
(define-key map " " 'gdb-toggle-breakpoint) |
1310 |
(define-key map "q" 'kill-this-buffer) |
(define-key map "q" 'kill-this-buffer) |
1311 |
(define-key map "\r" 'gdb-goto-breakpoint) |
(define-key map "\r" 'gdb-goto-breakpoint) |
1312 |
(define-key map [mouse-2] 'gdb-goto-breakpoint) |
(define-key map [mouse-2] 'gdb-goto-breakpoint) |
1313 |
|
(define-key map [follow-link] 'mouse-face) |
1314 |
map)) |
map)) |
1315 |
|
|
1316 |
(defun gdb-breakpoints-mode () |
(defun gdb-breakpoints-mode () |
1436 |
(define-key map "q" 'kill-this-buffer) |
(define-key map "q" 'kill-this-buffer) |
1437 |
(define-key map "\r" 'gdb-frames-select) |
(define-key map "\r" 'gdb-frames-select) |
1438 |
(define-key map [mouse-2] 'gdb-frames-select) |
(define-key map [mouse-2] 'gdb-frames-select) |
1439 |
|
(define-key map [follow-link] 'mouse-face) |
1440 |
map)) |
map)) |
1441 |
|
|
1442 |
(defun gdb-frames-mode () |
(defun gdb-frames-mode () |