From: Nick Roberts Date: Tue, 1 Feb 2005 20:10:19 +0000 (+0000) Subject: (gud-goto-info): New function. X-Git-Tag: ttn-vms-21-2-B4~2481 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed941a3ce6d4b73e6135ebdd2f1d6b23c41bf918;p=emacs.git (gud-goto-info): New function. (gud-tool-bar-map): Use correct icon. --- diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 2a40ae1aab6..42f908eb8dd 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -91,9 +91,17 @@ If SOFT is non-nil, returns nil if the symbol doesn't already exist." "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 @@ Used to grey out relevant toolbar icons.") (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)))))