diff options
| author | Nick Roberts | 2005-10-08 21:19:18 +0000 |
|---|---|---|
| committer | Nick Roberts | 2005-10-08 21:19:18 +0000 |
| commit | 8f078ee4a372c7937a69793722b02836820780cd (patch) | |
| tree | ff684f0e96a8dc88d0d0247bbcbc13877816cbc7 | |
| parent | 7d8087145d05af3a01ec85203d4eee878613499e (diff) | |
| download | emacs-8f078ee4a372c7937a69793722b02836820780cd.tar.gz emacs-8f078ee4a372c7937a69793722b02836820780cd.zip | |
(gud-speedbar-menu-items): Use :visible
instead of :active.
| -rw-r--r-- | lisp/progmodes/gud.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 12c7e1c0ba0..8840a01283f 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -357,15 +357,13 @@ t means that there is no stack, and we are in display-file mode.") | |||
| 357 | (define-key gud-speedbar-key-map "\C-m" 'speedbar-edit-line) | 357 | (define-key gud-speedbar-key-map "\C-m" 'speedbar-edit-line) |
| 358 | (define-key gud-speedbar-key-map "D" 'gdb-var-delete))) | 358 | (define-key gud-speedbar-key-map "D" 'gdb-var-delete))) |
| 359 | 359 | ||
| 360 | |||
| 361 | (defvar gud-speedbar-menu-items | 360 | (defvar gud-speedbar-menu-items |
| 362 | ;; Note to self. Add expand, and turn off items when not available. | ||
| 363 | '(["Jump to stack frame" speedbar-edit-line | 361 | '(["Jump to stack frame" speedbar-edit-line |
| 364 | (with-current-buffer gud-comint-buffer | 362 | :visible (with-current-buffer gud-comint-buffer |
| 365 | (not (memq gud-minor-mode '(gdbmi gdba))))] | 363 | (not (memq gud-minor-mode '(gdbmi gdba))))] |
| 366 | ["Edit value" speedbar-edit-line | 364 | ["Edit value" speedbar-edit-line |
| 367 | (with-current-buffer gud-comint-buffer | 365 | :visible (with-current-buffer gud-comint-buffer |
| 368 | (memq gud-minor-mode '(gdbmi gdba)))] | 366 | (memq gud-minor-mode '(gdbmi gdba)))] |
| 369 | ["Delete expression" gdb-var-delete | 367 | ["Delete expression" gdb-var-delete |
| 370 | (with-current-buffer gud-comint-buffer | 368 | (with-current-buffer gud-comint-buffer |
| 371 | (memq gud-minor-mode '(gdbmi gdba)))]) | 369 | (memq gud-minor-mode '(gdbmi gdba)))]) |