91 |
"Non-nil if debuggee is running. |
"Non-nil if debuggee is running. |
92 |
Used to grey out relevant toolbar icons.") |
Used to grey out relevant toolbar icons.") |
93 |
|
|
94 |
|
(defun gud-goto-info () |
95 |
|
"Go to relevant Emacs info node." |
96 |
|
(interactive) |
97 |
|
(select-frame (make-frame)) |
98 |
|
(require 'info) |
99 |
|
(if (memq gud-minor-mode '(gdbmi gdba)) |
100 |
|
(Info-goto-node "(emacs)GDB Graphical Interface") |
101 |
|
(Info-goto-node "(emacs)Debuggers"))) |
102 |
|
|
103 |
(easy-mmode-defmap gud-menu-map |
(easy-mmode-defmap gud-menu-map |
104 |
'(([help] menu-item "Help" gdb-goto-info |
'(([help] "Info" . gud-goto-info |
|
:enable (memq gud-minor-mode '(gdbmi gdba))) |
|
105 |
([refresh] "Refresh" . gud-refresh) |
([refresh] "Refresh" . gud-refresh) |
106 |
([run] menu-item "Run" gud-run |
([run] menu-item "Run" gud-run |
107 |
:enable (and (not gud-running) |
:enable (and (not gud-running) |
180 |
(gud-nexti . "gud-ni") |
(gud-nexti . "gud-ni") |
181 |
(gud-up . "gud-up") |
(gud-up . "gud-up") |
182 |
(gud-down . "gud-down") |
(gud-down . "gud-down") |
183 |
(gdb-goto-info . "help")) |
(gud-goto-info . "info")) |
184 |
map) |
map) |
185 |
(tool-bar-local-item-from-menu |
(tool-bar-local-item-from-menu |
186 |
(car x) (cdr x) map gud-minor-mode-map))))) |
(car x) (cdr x) map gud-minor-mode-map))))) |