357 |
(define-key gud-speedbar-key-map "\C-m" 'speedbar-edit-line) |
(define-key gud-speedbar-key-map "\C-m" 'speedbar-edit-line) |
358 |
(define-key gud-speedbar-key-map "D" 'gdb-var-delete))) |
(define-key gud-speedbar-key-map "D" 'gdb-var-delete))) |
359 |
|
|
|
|
|
360 |
(defvar gud-speedbar-menu-items |
(defvar gud-speedbar-menu-items |
|
;; Note to self. Add expand, and turn off items when not available. |
|
361 |
'(["Jump to stack frame" speedbar-edit-line |
'(["Jump to stack frame" speedbar-edit-line |
362 |
(with-current-buffer gud-comint-buffer |
:visible (with-current-buffer gud-comint-buffer |
363 |
(not (memq gud-minor-mode '(gdbmi gdba))))] |
(not (memq gud-minor-mode '(gdbmi gdba))))] |
364 |
["Edit value" speedbar-edit-line |
["Edit value" speedbar-edit-line |
365 |
(with-current-buffer gud-comint-buffer |
:visible (with-current-buffer gud-comint-buffer |
366 |
(memq gud-minor-mode '(gdbmi gdba)))] |
(memq gud-minor-mode '(gdbmi gdba)))] |
367 |
["Delete expression" gdb-var-delete |
["Delete expression" gdb-var-delete |
368 |
(with-current-buffer gud-comint-buffer |
(with-current-buffer gud-comint-buffer |
369 |
(memq gud-minor-mode '(gdbmi gdba)))]) |
(memq gud-minor-mode '(gdbmi gdba)))]) |