mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-12 09:28:24 +00:00
Code Issues Releases Activity

(gud-def): Do nothing if gud-running is t.

Browse Source 
(gud-speedbar-menu-items): Add item for gdb-var-set-format
below.
This commit is contained in:
Nick Roberts 2008-01-03 22:00:06 +00:00
parent b3dac3299c
commit ae084884d0
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/progmodes/gud.el
View File

@ -364,9 +364,10 @@ we're in the GUD buffer)."
(defun ,func (arg)
,@(if doc (list doc))
(interactive "p")
,(if (stringp cmd)
`(gud-call ,cmd arg)
cmd))
(if (not gud-running)
,(if (stringp cmd)
`(gud-call ,cmd arg)
cmd)))
,(if key `(local-set-key ,(concat "\C-c" key) ',func))
,(if key `(global-set-key (vconcat gud-key-prefix ,key) ',func))))
@ -458,7 +459,13 @@ t means that there is no stack, and we are in display-file mode.")
["Auto raise frame" gdb-speedbar-auto-raise
:style toggle :selected gdb-speedbar-auto-raise
:visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
'(gdbmi gdba))])
'(gdbmi gdba))]
("Output Format"
:visible (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
'(gdbmi gdba))
["Binary" (gdb-var-set-format "binary") t]
["Natural" (gdb-var-set-format "natural") t]
["Hexadecimal" (gdb-var-set-format "hexadecimal") t]))
"Additional menu items to add to the speedbar frame.")
;; Make sure our special speedbar mode is loaded