Mercurial > emacs
changeset 59851:d5e850d3f67f
(gud-goto-info): New function.
(gud-tool-bar-map): Use correct icon.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Tue, 01 Feb 2005 20:10:19 +0000 |
| parents | b164b73ca526 |
| children | 44381d53da68 |
| files | lisp/progmodes/gud.el |
| diffstat | 1 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gud.el Tue Feb 01 20:09:33 2005 +0000 +++ b/lisp/progmodes/gud.el Tue Feb 01 20:10:19 2005 +0000 @@ -91,9 +91,17 @@ "Non-nil if debuggee is running. Used to grey out relevant toolbar icons.") +(defun gud-goto-info () + "Go to relevant Emacs info node." + (interactive) + (select-frame (make-frame)) + (require 'info) + (if (memq gud-minor-mode '(gdbmi gdba)) + (Info-goto-node "(emacs)GDB Graphical Interface") + (Info-goto-node "(emacs)Debuggers"))) + (easy-mmode-defmap gud-menu-map - '(([help] menu-item "Help" gdb-goto-info - :enable (memq gud-minor-mode '(gdbmi gdba))) + '(([help] "Info" . gud-goto-info ([refresh] "Refresh" . gud-refresh) ([run] menu-item "Run" gud-run :enable (and (not gud-running) @@ -172,7 +180,7 @@ (gud-nexti . "gud-ni") (gud-up . "gud-up") (gud-down . "gud-down") - (gdb-goto-info . "help")) + (gud-goto-info . "info")) map) (tool-bar-local-item-from-menu (car x) (cdr x) map gud-minor-mode-map)))))