Mercurial > emacs
diff lisp/progmodes/gud.el @ 79668:5a1bd3d071b6
(gud-def): Do nothing if gud-running is t.
(gud-speedbar-menu-items): Add item for gdb-var-set-format
below.
author | Nick Roberts <nickrob@snap.net.nz> |
---|---|
date | Thu, 03 Jan 2008 22:00:06 +0000 |
parents | 0c660f35bf59 |
children | a1342e6e097a |
line wrap: on
line diff
--- a/lisp/progmodes/gud.el Thu Jan 03 21:58:33 2008 +0000 +++ b/lisp/progmodes/gud.el Thu Jan 03 22:00:06 2008 +0000 @@ -364,9 +364,10 @@ (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 @@ ["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