diff options
| author | Nick Roberts <[email protected]> | 2006-03-01 22:43:29 +0000 |
|---|---|---|
| committer | Nick Roberts <[email protected]> | 2006-03-01 22:43:29 +0000 |
| commit | f4eb22689d5420252193bcc64801c263961ca7e3 (patch) | |
| tree | ab918813b82070990abb3cd2f82dbd3800bbe1c3 /lisp/progmodes/gud.el | |
| parent | 115712f09476c57538f1c86a4e89dc5806e9680b (diff) | |
(gud-speedbar-menu-items): Use
buffer-local-value and add missing :visible keyword.
Diffstat (limited to 'lisp/progmodes/gud.el')
| -rw-r--r-- | lisp/progmodes/gud.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index a342eb0b6f..31c8fe0e8a 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -406,18 +406,18 @@ t means that there is no stack, and we are in display-file mode.") (defvar gud-speedbar-menu-items '(["Jump to stack frame" speedbar-edit-line - :visible (with-current-buffer gud-comint-buffer - (not (memq gud-minor-mode '(gdbmi gdba))))] + :visible (not (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer) + '(gdbmi gdba)))] ["Edit value" speedbar-edit-line - :visible (with-current-buffer gud-comint-buffer - (memq gud-minor-mode '(gdbmi gdba)))] + :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer) + '(gdbmi gdba))] ["Delete expression" gdb-var-delete - (with-current-buffer gud-comint-buffer - (memq gud-minor-mode '(gdbmi gdba)))] + :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer) + '(gdbmi gdba))] ["Auto raise frame" gdb-speedbar-auto-raise :style toggle :selected gdb-speedbar-auto-raise - :visible (with-current-buffer gud-comint-buffer - (memq gud-minor-mode '(gdbmi gdba)))]) + :visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer) + '(gdbmi gdba))]) "Additional menu items to add to the speedbar frame.") ;; Make sure our special speedbar mode is loaded |