mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-28 19:42:02 +00:00
Code Issues Releases Activity

(gud-speedbar-menu-items): Use :visible

Browse Source 
instead of :active.
This commit is contained in:
Nick Roberts 2005-10-08 21:19:18 +00:00
parent 7d8087145d
commit 8f078ee4a3
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/progmodes/gud.el
View File

@ -357,15 +357,13 @@ t means that there is no stack, and we are in display-file mode.")
(define-key gud-speedbar-key-map "\C-m" 'speedbar-edit-line)
(define-key gud-speedbar-key-map "D" 'gdb-var-delete)))
(defvar gud-speedbar-menu-items
;; Note to self. Add expand, and turn off items when not available.
'(["Jump to stack frame" speedbar-edit-line
(with-current-buffer gud-comint-buffer
(not (memq gud-minor-mode '(gdbmi gdba))))]
:visible (with-current-buffer gud-comint-buffer
(not (memq gud-minor-mode '(gdbmi gdba))))]
["Edit value" speedbar-edit-line
(with-current-buffer gud-comint-buffer
(memq gud-minor-mode '(gdbmi gdba)))]
:visible (with-current-buffer gud-comint-buffer
(memq gud-minor-mode '(gdbmi gdba)))]
["Delete expression" gdb-var-delete
(with-current-buffer gud-comint-buffer
(memq gud-minor-mode '(gdbmi gdba)))])